—TMO2/TU45 cating cornu 75-70 RNG 


FICHE1OF1 MADEINUSA 


ER REE REA TSAR, eine re Ne Se a a Canela es an tet y 





B 1 
CZTULAO TMO2 DRIVE FUNCTION TIMER MACY11 30(1046) 135-JUN-78 13:54 PAGE 1 
07-JUN-78 17:07 


-NLIST SEQ,LOC.BIN 


IDENTIFICATION 


PRODUCT CODE: AC-E478A-MC 


PRODUCT NAME: CZTULAO TMO2/TU4S DRIVE FUNCTION TIMER 


DATE CREATED: 25 MAY 1978 
MAINTAINER: COMPUTER SPECIAL SYSTEMS 


AUTHOR: JOHN ADAMS/R. BARNES/R. J. COLLINS 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE COWSTRUED 
AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN 
THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS 
FURNISHED TO THE PURCHASER UNDER A LICENSE FOR USE 
ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL*S COPYRIGHT NOTICE) 
ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tye og ON EQUIPMENT THAT IS NOT SUPPLIED BY 





COPYRIGHT (C) 1975, 1976, 1977, 1978 BY DIGITAL EQUIPMENT CORPORATION 


SEQ 0001 








; 4 
CZTULAO TMO2 DRIVE FUNCTION TIMER MACY11 30(1046) 135-JUN-78 13:54 PAGE 2 
CZTULA.P11 Q7-JUN-78 17:07 SEQ 0002 


TMO2 DRIVE FUNCTION TIMER PAGE 2 
TABLE OF CONTENTS 


TABLE OF CONTENTS 


ABSTRACT 
CHAPTER 1 REQUIREMENTS 
1.1 EQUIPMENT 
1.2 MEMORY STORAGE 
1.3 PRELIMINARY PROGRAMS 
CHAPTER 2 LOADING AND STARTING PROCEDURE 
2.1 ACT11 OPERATION 
CHAPTER 3 SWITCH SETTINGS 
CHAPTER 4 ERRORS 
4.1 ERROR TYPEOQUT FORMAT (HARDWARE) 
4.2 ERROR TYPEOQUT FORMAT (FUNCTION OUT OF RANGE) 
CHAPTER 5 SUBROUTINE ABSTRACTS 
CHAPTER 6 MISCELLANEOUS 
6.1 STACK POINTER 
6.2 EXECUTION TIME 
CHAPTER 7 PROGRAM DESCRIPTION 
7.1 FUNCTION TIME DOCUMENT 
7.2 TEST SEQUENCE / RELATED ADJUSTMENTS / ASSOCIATED HARDWARE 
7.5 TEST DESCRIPTIONS 


D 1 
CZTULAO TMO2 DRIVE FUNCTION TIMER MACY11 30(1046) 15-JUN-78 13:54 PAGE 3 


CZTULA.P11 — O7-JUN-78 17:07. 
TMO2 DRIVE FUNCTION TIMER 


ABSTRACT 


ABSTRACT 


PROGRAM CZTULA MEASURES THE TIME REQUIRED AND GAP 
SIZES PRODUCED BY THE TMO2/TU45 MAGTAPE 
DRIVE/SLAVE. 


THE TEST WILL CHECK BOTH THE LOGIC GENERATED 
TIME DELAYS, AND THE DISTANCES TRAVLED BY THE 
TAPE IN RESPONSE. 


ACTUAL TAPE SPEED MAY ALSO BE CHECKED BY USING 
THE SPEED TESTS WITH AN 800 BPI SKEW TAPE. 


DEVICE ERRORS ARE CHECKED AND PRINTED AS THEY 
OCCUR. IF THE ERROR IS DATA RELATED(PARITY; ETC) 
THEY ARE PRINTED AS SOFT ERRORS. 


IF THE TIME CHECK IS OUT OF RANGE, IT IS PRINTED 
AS AN OUT OF RANGE ERROR. 
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REQUIREMENTS 
CHAPTER 1 
REQUIREMENTS 


PDP-11 FAMILY CENTRAL PROCESSOR WITH 4K MEMORY WITH UP TO 64 TM11/TMO2 
CONTROLLER/MAGTAPE STATIONS. 


1.1 OPTIONAL EQUIPMENT USED 
1. NONE 


1.2 STORAGE 
PROGRAM LOADS AND RUNS IN THE FIRST 4K OF MEMORY. 


1.3 PRELIMINARY PROGRAMS (TO ASSURE HARDWARE OPERATION) 


CZTUKA CONTROL LOGIC TEST 
CZTUJA BASIC FUNCTION TEST 
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CHAPTER 2 
LOADING AND STARTING PROCEDURE 


THE PROCEDURE IS AS FOLLOWS: 


LOAD PROGRAM USING THE ABSOLUTE LOADER 
‘ LOAD ADDRESS = 200 : 

SET OPERATING SWITCHES 

PRESS START 


PROGRAM WILL REQUEST DRIVE (TMO2) AND SLAVE (TU45) NUMBERS TO BE 
TESTED. TYPE * DRIVE/SLAVE NUMBERS WITH A COMMA (,) BETWEEN EACH 
DRIVE/SLAVE TO BE TESTED. 


REQUESTS FOR TAPE SPEED TESTS AND NRZ ONLY MODE WILL BE MADE. 

RESPONSE TO TAPE SPEED ONLY REQUEST WITH A OWE (1) WILL CAUSE 

THE PROGRAM TO EXECUTE TEST 31 AND 32 ONLY. THIS IS THE ONLY WAY ° 
TO TEST TAPE SPEED. 

NRZ ONLY MODE WILL CAUSE THE PROGRAM TO SKIP THE 1600 BPI DATA TIME TEST. 

Pen Bees U ( U) TO DELETE LINE TYPED OR RUBOUT TO DELETE LAST 

cH ° 


PROGRAM WILL PUBLISH TIMES REQUIRED AND REPORT ERRORS. 


2.1 ACT1? OPERATION 


IF THE PROGRAM IS RUN IN QUICK VERIFY MODE, FUNCTION TESTS ARE NOT 
ITERATED. 
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CHAPTER 3 
SWITCH SETTINGS 


IF A CONSOLE SWITCH REGISTER IS NOT PRESENT, THE FOLLOWING 
PROCEDURE MUST BE IMPLEMENTED: 

A) LOAD ADDRESS 1000(8) LABELLED ‘’SwR’’ 

B) DEPOSIT THE VALUE 176(8) 

C) LOAD ADDRESS 176(8) 

D) DEPOSIT THE DESIRED SWITCH VALUE. 


SW15 HALT ON ERROR THIS SWITCH WHEN SET WILL WALT THE 
PROCESSOR WHEN AN ERROR IS DETECTED. 

THE PC+2 AND PSW AT THE TIME OF THE 

ERROR IS STORED ON THE STACK. PRESSING 

CONTINUE WILL CAUSE THE ERROR TO BE 

TYPED (CIF SELECTED) AND FURTHER TESTING 


RESUMED. 
SW14 LOOP SUBTEST THIS SWITCH WHEN SET LOOPS THE CURRENT 
SUBTEST REGARDLESS OF ERROR CONDITION. 
SW13 INHIBIT ERROR THIS SWITCH WHEN SET INHIBITS ERROR 
TYPEOUT TYPEOUT. 
SW11 INHIBIT SUB- THIS SWITCH WHEN SET CAUSES EACH SUBTEST 
TEST ITERATION TO BE EXECUTED ONLY ONCE. (INITIAL 
STARTUP ONLY). 
$w10 INHIBIT THIS SWITCH WHEN SET WILL INHIBIT THE 


FUNCTION TIME PRINTING OF THE FUNCTION TIMES. (SEE 
PUBLICATION CHAPTER 8.) 


SwO9 RING BELL THIS SWITCH WHEN SET WILL RING THE BELL 
ON ERROR ON THE TTY WHEN AN ERROR IS DETECTED. 
Sw07 HALT AFTER THIS SWITCH WHEN SET WILL CAUSE THE 


SELECTED TEST PROGRAM TO HALT AFTER THE TEST SELECTED 
IN SWO5-SWOO IS EXECUTED. 


SwW06 CONTINUOUS THIS SWITCH WHEN SET WILL CAUSE THE 
CYCLE PROGRAM TO RUN CONTINUOUSLY UNTIL 
STOPPED BY THE OPERATOR. 


SEQ 0006 
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$W5-0 TEST SELECT THE PROGRAM WILL HALT AFTER EXECUT 


CUTION 
OF THE TEST SELECTED WHEN SWO7 IS SET. 
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CHAPTER 4 
ERRORS 


TWO TYPES OF ERRORS ARE DETECTED BY THIS PROGRAM, HARDWARE ERRORS AND 
INCORECT FUNCTION TIMES. 


4.1 ERROR TYPEOUT FORMAT (HARDWARE): DATA RELATED ERRORS (IE: PARITY ERROR) ARE PRINTED AS SOFT ERRORS 
AND HAVE NO EFFECT ON TIME. 
TEST # XXXXXX DEVICE ERROR 
CS1 WE BA FC CS2 DS ER1 
AAAAAA BBBBBB CCCCCC DDDDDD EEEEEE FFFFFF GGGGGG 
WHERE : 


XXXXXX = TEST NUMBER 
AAAAAA-IIIIII = CONTENTS OF TAPE REGISTER 172440-172454 


4.2 ERROR TYPEOUT FORMAT (FUNCTION TIME OUT OF RANGE) 
TEST # XXXXXX OUT OF RANGE ERROR 
RANGE = <AAAAAA~BBBBBB> ACTUAL = CCCCC(C 


J 1 
CZTULAO TMO2 DRIVE FUNCTION TIMER MACY11 30(1046) 135-JUN-78 13:54 PAGE 9 
CZTULA.P11 07-JUN-78 17:07 SEQ 0009 


TMO2 DRIVE FUNCTION TIMER PAGE 8 
SUBROUTINE ABSTRACTS 


CHAPTER 5 
SUBROUTINE ABSTRACTS 


5.1 .SCOPE 
I aFOEE MLAME SEALED eM SEO uf oe ht TH 
FUNCTIONS: e 
1. LOADS R5 WITH BASE ADDRESS 
2. TYPES TIME LINE <SW08> 
3. PROVIDES CONTINUOUS LOOP <SW14> 
4. MOVES FUNCTION TIME INTO TABLE 
5. OUTPUTS LINE ITEM IF SELECTED 
6. PROVIDES HALT ON TEST <SW07> 
7. DELAYS 350MS BEFORE STARTING TEST 
8. INIT'S DRIVE/SLAVE 
9. CLEARS THE ERROR FLAG (ERFLG) 
THE ROUTINE MONITORS SW14, SW11, SW10, SWO8, AND SWO7. 


5.2 PUBLISH 


THE PUBLISH ROUTINE IS CALLED FROM THE SCOPE ROUTINE IF SW10 IS EQUAL 
TO 0 (PUBLISH TIME DOCUMENT). THE ROUTINE WILL PRINT A ‘'SINGLE LINE 
ITEM’’ EACH TIME IT IS CALLED. 
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SUBROUTINE ABSTRACTS 


PAGE 9 


ao3 «AT 


THE HLT ROUTINE IS CALLED BY THE HLT (TRAP) INSTRUCTION WHEN AN _ ERROR 
IS DETECTED. A HLT (TRAP) INSTRUCTION FORMATS THE ERROR INFORMATION 
AS SHOWN IN SEC 4.1. A HLT+1 (TRAP+1) FORMATS THE ERROR AS SHOWN IN 


SEC 4.2. 
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MISCELLANEOUS 
CHAPTER 6 
MISCELLANEOUS 


6.1 STACK POINTER 


THE STACK POINTER IS INITAILLY SET TO 500 AND IS RESET TO 500 BY THE 
SCOPEA ROUTINE. 


6.2 EXECUTION TIME 
WHEN SW11=1 (INHIBIT ITERATIONS) THE TIME REQUIRED IS 3.5 MIN. 
WHEN SW11=0 (ITERATE SUBTESTS) THE TIME REQUIRED IS 4.5 MIN. 
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PROGRAM DESCRIPTION 


7. 


1 SAMPLE TIME DOCUMENT 


MACY11 30(1046) 


CHAPTER 7 
PROGRAM DESCRIPTION 


TYPE FIRST ADDRESS OF CONTROLER 172440 


TYPE TMO2 DRIVE #°S TO BE 
FOR TMO2 DRIVE O- TYPE SLAVE #°S TO Sees 7 


TESTED 0 


TAPE SPEED TESTS ONLY? (YES/NO = 1/0) 
NRZ ONLY? (YES/NO = 1/0) 0 


RARAAAAAAAAAEAAAAERERAAAAAAEEAAEEARAAAARAAAAAAAAAAEAAAETEAAAAEAAARAAAEEE 


TMO2 DRIVE FUNCTION TIMES~ DRIVE # 0 SLAVE # 7 9 CHAN. SER. # 5009 


x 


e»=epneneneanenenenenenenennenennennnnnnnean 


FUNCTION 

WRITE FROM BOT 
WRITE START 
WRITE SHUTDOWN 
WRITE SETTLEDOWN 
READ FROM BOT 
READ START 

READ SHUTDOWN 
READ SETTLEDOWN 


READ REV SETTLEDOWN 
TURN AROUND DELAY F-R 
URN AROUND DELAY R-F 
GAP SIZE-STOP HALF 
GAP SIZE-START HALF 
GAP SIZE-INTERRECORD 


DATA TIME-556 BPI 
DATA TIME-800BP 1 
DATA TIME-16006P1 
ERASE GAP TIME 
WRITE FILE MARK 


TIME (SPECIFICATION) 
RANGE=<080000-068000> 


RANGE =<005500-004500> 
enon eae oaeds, 


RANGE 
RANGE=<001700-001300> 
RANGE =<006000-004600> 
apres a LES 


RANGE=<00 006800> 
RANGE=<014560-013710> 
RANGE=<014560-013710> 


RANGE =<064000-058000> 


m1 
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sea oe 


ACTUAL=001500 
ACTUAL=005300 
ACTUAL=001650 
ACTUAL=002100 


ACTUAL=061000 


SEQ 0012 
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7.1.1 SAMPLE TIME DOCUMENT FOR TAPE SPEED TESTS 


TYPE FIRST ADDRESS OF CONTROLLER 172440 

TYPE TMO2 DRIVE #'S TO BE TESTED 0 

FOR TMO2 DRIVE O- TYPE SLAVE #°S TO BE TESTED 7 
SPEED TESTS ONLY? (YES/NO = 1/0) 1 


REAEAAAEAAAEAAAAAAEEAARAAAEEAAEEAAAAARAAAAAAAAAAAARAEATEREATAAAE EEA EEE 


*TMO2 DRIVE FUNCTION TIMES- DRIVE # 0 SLAVE # 7 9 CHAN. SER. # 5009 
+ 


*FUNCTION TIME (SPECIFICATION) TIME (ACTUAL ) 
*TAPE SPEED FWD RANGE =<013800-013000> ACTUAL=013330 
*TAPE SPEED REV RANGE=<013800-013000> ACTUAL=013350 


ee ee ee 
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TMO2 DRIVE FUNCTION TIMER 
7.2 TEST SEQUENCE WITH RELATED ADJUSTMENTS AND ASSOCIATED HARDWARE 
TEST NO./NAME 


17. 


20. 


WRITE FROM BOT 

WRITE START 

WRITE SHUTDOWN 

WRITE SETTLEDOWN 

READ FROM BOT 

READ START 

READ SHUTDOWN 

READ SETTLEDOWN 

READ REVERSE START 
READ REVERSE SHUTDOWN 
READ REVERSE SETTLEDOWN 
TURN AROUND F-R 

TURN AROUND R-F 

GAP SIZE-STOP HALF 
GAP SIZE-START HALF 


GAP SIZE INTERRECORD 


MACY11 30(1046) 
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SEQ 0014 
PAGE 15 


RELATED ADJUSTMENTS ASSOCIATED HARDWARE 


*NONE *M8921 ROM*MB905 ACCL CNTR 
e i: * * - 

e ' .  ™ o " 

» ™ *M8921 SETTLEDOWN ONE SHOT 
‘i * *M8921 ROM*MB903 ACCL CNTR 
. * 7 =e * 

e " =~ » * 

e.* *M8921 SETTLEDOWN ONE SHOT 
a. *M8921 ROM*M8905 ACCL CNTR 
ae _ wm 

tae is #48921 SETTLEDOWN ONE SHOT 
ic.” *M8921 ROM*M8905 ACCL CNTR 
» , *- a * 


*FWRD/REV SPEED-START/STOP-RAMPS 


* SAME AS IN TEST 16 & ve te te 


*FWO/REV SPEED . " - 
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21. GAP CONSISTENCY 
*TEST NUMBER 22 IS RESERVED FOR 
23. DATA TIME 200 BPI 


24. DATA TIME 556 BPI 


25. DATA TIME 800 BPI 


26. DATA TIME 1600 BPI 


27. ERASE GAP TIME 


30. WRITE FILE MARK 


31. TAPE SPEED-FORWARD 


32. TAPE SPEED-REVERSE 


*SAME AS IN TEST 16 
FUTURE USE 
*NONE 


*FWD SPEED 


*REVERSE SPEED 


PAGE 14 


SEQ 0015 


*WRITE CLOCK 


*CAPSTAN SERVO LOOP 


*CAPSTAN SERVO LOOP 


eeeeeNOTE: IF TIME PROBLEMS APPEAR IN T1 THRU T30, RUN TAPE SPEED TESTS FIRST****««« 
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7.3 TEST DESCRIPTIONS: 


THE FIRST THIRTEEN (13) TESTS (T1 - T15) ARE CHECKS OF THE 
ROM CIRCUITS IN THE TU4S (M8921), THE ACCL COUNTER IN THE 
TMO2 (M8903), AND THE SETTLEDOWN ONE SHOT (M8921). 


T1. WRITE FROM BOT: 


THIS TEST WILL MEASURE ACCELLERATION DELAY REQUIRED TO 
MOVE THE TAPE APPROXIMATELY SEVEN (7) INCHES FORWARD 
FROM DEAD STOP AT BOT BEFORE STARTING TO TRANSFER DATA. 


1. ASSURE TAPE IS STOPPED AT BOT. 

2. ISSUE A WRITE COMMAND 

3. MONITOR BIT 15 OF TC (ACCL) 

4. a FROM GO TO ACCL RESET IS BOT DELAY 


T2. WRITE START: 


THIS TEST WILL MEASURE ACCELLERATION DELAY JUST AS IN 
ace — THE TIME WILL BE LESS WHEN NOT STARTING 


1. LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
2. ISSUE A WRITE COMMAND 

3. MONITOR BIT 15 OF TC (ACCL) 

:" ra FROM GO TO RESET OF ACCL IS START DELAY 


T3. WRITE SHUTDOWN: 


THIS TEST WILL MEASURE THE TIME FROM EOR (LAST CHARACTER 
WRITTEN ON TAPE) TO THE START OF SETTLEDOWN TIME. THIS 
ASSURES, IN PART, A PROPER INTERRECORD GAP. 


1. LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
2. ISSUE A WRITE C 

3. MONITOR FRAME COUNTER AND BIT 4 OF DS (SDWN) 

4. TIME FROM FC=0 TO ASSERTION OF SOWN IS 

; —- TIME. 


T4. WRITE SETTLEDOWN: 


THIS TEST WILL MEASURE THE SLOWDOWN TIME. THE TIME 

FROM THE START OF SLOWDC’'N UNTIL THE TAPE SHOULD 

BE STOPPED. THIS IS A ?xrtT OF THE GAP TIMING IN LOGIC. 
THE MECHANICAL POSITIONING OF THE TAPE IN THE GAP DISTANCE 
WILL BE MEASURED IN A LATER TEST. 


1. LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
2. ISSUE A WRITE COMMAND 


SEQ 0016 


fF @ 
CZTULAO TMO2 DRIVE FUNCTION TIMER MACY11 30(1046) 13-JUN-78 13:54 PAGE 17 
CZTULA.P11 07-JUN-78 17:07 SEQ 0017 


3. MONITOR BIT 4 OF DS (SDWN) 
4. TIME FROM SET OF SDWN TO RESET OF SDWN IS THE 
; — DELAY 
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TS. READ FROM BOT 


THIS MEASUREMENT IS MADE EXACTLY AS THE WRITE 
MEASUREMENT IN T1. USE THE SAME RECORD THAT WAS 
WRITTEN IN T1. 


1. REWIND TO BOT 

2. ASSURE TAPE HAS HAD TIME TO COME TO A COMPLETE STOP 
3. READ FORWARD 1 RECORD. 

4. MONITOR BIT 15 OF TC (ACCL) 

- it FROM GO TO ACCL IS BOT DELAY 


T6. READ START 
THIS TEST MEASURES THE SAME DELAY AS IN Te. 


1. WRITE 1 RECORD, THEN BACKSPACE OVER IT, ASSURE TAPE IS STOPPED. 
2. ISSUE A READ FORWARD OF THE RECORD WRITTEN IN STEP 1. 

3. MONITOR BIT 15 OF TC (ACCL) 

: Ho FROM GO TO RESET OF ACCL IS START DELAY 


T7. READ SHUTDOWN: 
THIS TEST MEASURES THE SAME DELAY AS IN T3. 


1. WRITE 1 RECORD, THEN BACKSPACE OVER IT, ASSURE TAPE IS STOPPED. 
2. READ FORWARD THE RECORD WRITTEN IN STEP 1. 

3. MONITOR FRAME COUNT AND BIT 4 OF DS (SDWN). 

4. TIME FROM FC=RECORD SIZE (LAST FRAME READ) TO SDWN=1 

; ao SHUTDOWN TIME. 


T10. READ SETTLEDOWN: 
THIS TEST MEASURES THE SAME DELAY AS IN T4. 


1. WRITE 1 RECORD, THEN BACKSPACE OVER IT, ASSURE TAPE IS STOPPED. 
2. READ FORWARD THE RECORD WRITTEN IN STEP 1. 

3. MONITOR BIT 4 OF DS (SDWN) 

4. TIME FROM SET OF SDWN TO RESET OF SOWN IS THE 

5 —- DELAY. 
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T1171. READ REVERSE START: 


THIS TEST WILL MEASURE THE START DELAY IN THE REVERSE 
DIRECTION. 


1. WRITE 1 RECORD, ASSURE TAPE IS STOPPED. 

2. READ REVERSE THE RECORD WRITTEN IN STEP 1. 

3. MONITOR BIT 15 OF TC CACCL) 

." — FROM GO TO RESET OF ACCL IS THE START TIME 


Ti2. READ REVERSE SHUTDOWN 


THIS TEST WILL MEASURE THE READ SHUTDOWN IN THE REVERSE 
DIRECTION. 


1. WRITE 1 RECORD, ASSURE TAPE IS STOPPED. 

2. READ REVERSE THE RECORD WRITTEN IN STEP 1. 

3. MONITOR FRAME COUNTER AND BIT 4 OF DS (SDWN). 

4. TIME FROM FC=RECORD SIZE (LAST FRAME READ) TO SDWN=1 
; he READ REVERSE SHUTDOWN TIME. 


T1353. READ REVERSE SETTLEDOWN: 


THIS TEST WILL MEASURE THE READ SETTLEDOWN IN THE REVERSE 
DIRECTION. 


1. WRITE 1 RECORD, ASSURE TAPE IS STOPPED. 

2. READ REVERSE THE RECORD WRITTEN IN STEP 1. 

3. MONITOR BIT 4 OF DS (SDWN) 

4. TIME FROM SET OF SDWN TO RESET OF SDWN IS THE 
; —e DELAY 


T14. TURN AROUND DELAY-FORWARD TO REVERSE 


THIS TEST WILL MEASURE THE TIME REQUIRED FOR THE TAPE 
TO CHANGE DIRECTION. 


1. LEAVE TAPE AT ITS PRESENT POSITION. ASSURE THAT IT IS STOPPED 
2. ISSUE A WRITE FORWARD OF AT LEAST 20 FRAMES 
3. MONITOR BIT 7 OF DS (DRY) 
4. WHEN DRY IS ASSERTED (EOR), IMMEDIATELY ISSUE A 
READ REVERSE OF THAT RECORD. 
5. MONITOR BIT 15 OF TC (ACCL). 
6. TIME FROM GO OF READ REVERSE TO RESET OF ACCL IS 
: _— TIME. 
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T15. TURN AROUND DELAY-REVERSE TO FORWARD 


THIS TEST WILL MEASURE THE TIME AS IN 114, BUT IN THE 
OPPOSITE DIRECTION. 


1. WRITE 1 RECORD. 

2. ASSURE TAPE IS STOPPED 

3. READ REVERSE 

4. MONITOR DRY (BIT 7 OF DS) 

5. WHEN DRY = 1, ISSUE A READ FORWARD 

6. MONITOR ACCL (BIT 15 OF TC) 

- TIME FROM GO FORWARD TO ACCL = 1 IS THE TURN AROUND TIME. 
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GAP MEASUREMENTS: 


THE PREVIOUS THIRTEEN (13) TESTS WERE MEASUREMENTS OF LOGIC 
DELAYS PERFORMED BY THE TMO2 OR TU45 IN ORDER TO ALLOW FOR 
PROPER ACCELERATION AND DECELLERATION OF TAPE ACCORDING TO 
THE DESIRED INTEROCORD GAP (.6 INCHES). THIS TEST, HOWEVER, 
WILL MEASURE THE PHYSICAL SIZE OF THE INTERCORD GAP THAT 
EXISTS ON TAPE AS A RESULT OF THE START/STOP TIMES OF 

THE CAPSTAN ITSELF. BECAUSE THE INTERRCORD GAP IS 

CREATED BY TWO ACTIONS, THE START OF MOTION AND THE 

STOP OF MOTION IT IS NECESSARY TO MAKE TWO SEPERATE 
MEASUREMENTS. A THIRD MEASUREMENT, MADE ON THE FLY, OF 

THE ENTIRE LENGTH OF THE GAP WILL ALSO BE MADE. 


T16. GAP SIZE (STOP HALF) 


THIS TEST WILL MEASURE THE DISTANCE TRAVLED BY THE TAPE 
= a ge CYCLE. IN OTHER WORDS, THE DISTANCE INTO 


1. WRITE 1 RECORD. 

2. ASSURE TAPE IS STOPPED. 

3. ISSUE A READ REVERSE OVER THE RECORD © 

4. MONITOR THE FRAME COUNT FOR THE FIRST FRAME READ (FC = 1) 
- _— FROM GO=1 TO FC=1 IS THE LENGTH OF THE GAP 


T17. GAP SIZE (START HALF) 


THIS TEST WILL MEASURE THE DISTANCE OF TAPE TRAVEL 
DURING START UP. 


1. WRITE 1 RECORD, THEN REVERSE OVER IT, ASSURE TAPE IS STOPPED. 
2. ISSUE A READ FORWARD 

3. MONITOR FC FOR FC=1 

:" ia FROM GO=1 TO FC=1 IS START DISTANCE 


T20. GAP SIZE (INTERRECORD) 


THIS TEST WILL MEASURE THE ENTIRE LENGTH OF THE IRG ON 
THE FLG. THE TIME VALUE OF THIS TEST SHOULD NOT BE 
EQUAL TO A SUMMATION OF 116 AND T17 DUE TO THE FACT THAT 
THE ACCELLERATION AND DECELLERATION CURVES ARE NOT IN 
EFFECT. THE VALUE HERE SHOULD ACTUALLY BE LESS THAN THE 
SUM OF T16 AND T 


1. WRITE 2 RECORDS. 

2. READ REVERSE OVER THE SECOND RECORD 

3. MONITOR DRY (BIT 7 OF DS) 

4. WHEN DRY = 1, ISSUE A SECOND READ REVERSE 

5. MONITOR FRAME COUNT 

6. TIME FROM GO=1 OF SECOND READ REVERSE TO FC=1 IS THE 
LENGTH OF THE GAP. 
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7. STOP 
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CZTULA.P11 


T21. GAP CONSISTENCY: 


NOW THAT WE HAVE ESTABLISHED THAT THE INTERRCORD 

GAP IS THE PROPER SIZE, LET US DETERMINE THE CONSISTENCY 
OF THE GAP UNDER VARIOUS COMMAND EXECUTION TIMES. 

BY WRITING A SERIES OF RECORDS, EACH WITH A DIFFERENT 
DELAY BETWEEN EXECUTION, WE CAN ESTABLISH THE CONSISTENCY 
OF THE GAPS BY READING THESE RECORDS AND MONITORING 

THEIR INTERRECORD GAPS, ON THE FLY. 


1. REWIND TAPE TO BOT. 

2. WRITE ONE (1) RECORD TO GET TAPE OFF BOT 

3. WRITE SIXTEEN (16) RECORDS WITH A PROGRESSIVE DELAY 
4 

5 


OF FROM 0 TO 16 MILLISECONDS (APPROX) BETWEEN COMMANDS. 


. BACKSPACE 16 RECORDS AND ALLOW THE TAPE TO STOP. 

. READ FORWARD (NON-STOP) OVER THESE 16 RECORDS, FACH 
TIME MONITORING THE TIME FROM THE END OF RECORD (DRY) 
UNTIL THE FRAME COUNT NEXT GOES FROM 0 TO 1 (FC=1). 

6. THE TIMES FROM DRY TO FC=1 IS THE GAP TIME AND IT 
SHOULD REMAIN CONSISTANT FOR ALL RECORDS. 


7. STOP 
**(SEE GTIMTBL IN CZTULA LISTING FOR GAP TIMES) ** 


T22. RESERVED FOR FUTURE USE****# 
T23. DATA TIME AT 200 BPI: 


THIS TEST WILL MEASURE THE TIME REQUIRED TO WRITE 
ONE (1) “¥" OF TAPE AT 200 BPI. 

BY WRITING A RECORD OF ENOUGH FRAMES TO MOVE 

THE TAPE 1 INCH (200 FRAMES). DATA RATE 

CAN BE VARIFIED. 


1. REWIND TO BOT AND ALLOW TAPE TO STOP 

2. WRITE A RECORD AT 200 BPI. 

3. MONITOR DRY (BIT 7 OF DS) FOR EACH RECORD 

4. THE TIME FROM FC=FC+1 TO DRY WILL BE THE TIME REQUIRED 
; A» INCH AT THE SELECTED DENSITY 


T24. DATA TIME AT -. BPI 
REPEAT STEPS 1 THRU 5 OF T25 AT 556 BPI. 


T25. DATA TIME AT 800 B 
REPEAT STEPS 1 THRU. 5 AT 800 BPI. 


T26. DATA TIME AT — BPI (PE): 
REPEAT STEPS 1 THRU 5 AT 1600 BPI. 
**THIS TEST IS NOT EXECUTED IF NRZ ONLY** 
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TMO2 DRIVE FUNCTION TIMER 
T27. ERASE: 


THE ERASE COMMAND WILL CAUSE AN AREA OF THE THREE (3) 
INCHES TO BE DC ERASED IN THE FORWARD DIRECTION. 
ania a WILL ASSURE THAT THE PROPER DISTANCE IS 


1. 


2 
a 
4 


LEAVE TAPE AT ITS PRESENT POSITION. 
ISSUE AN ERASE COMMAND. 

MONITOR DRY (BIT 7 OF DS) 

THE TIME FROM GO TO DRY WILL BE THE TIME 
REQUIRED TO ERASE 3 INCHES UF TAPE AND WILL 
— THE DISTANCE. DENSITY IS NOT A FACTOR. 


T30. TAPE MARK: 


THIS TEST IS ALSO A CHECK ON THE THREE (3) INCH GAP. 
WHEN A TAPE MARK IS WRITTEN, A 3 INCH GAP IS 
CREATED BEFORE DATA IS PUT ON TAPE. 


7. 
2. 


3. 
4. 


» 


LEAVE TAPE AT ITS PRESENT POSITION 

ISSUE A WRITE TAPE MARK COMMAND 

MONITOR DRY (BIT 7 OF DS) 

THE TIME FROM GO TO DRY WILL BE THE TIME 
REQUIRED TO WRITE THE TM RECORD PLUS THE 
—" GAP. 

STO 
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TMO2 DRIVE FUNCTION TIMER PAGE 22 
T31. TAPE SPEED FORWARD: 


THIS TEST REQUIRES THE USE OF AN 800 BPI SKEW TAPE! 
THE OPERATOR WILL BE REQUIRED TO MOUNT THE SKEW TAPE 
BEFORE EXECUTING THE TEST. THE SKEW TAPE IS THE ONLY 
WAY TO ASSURE THAT TAPE IS MOVING AT THE PROPER SPEED 
BECAUSE THE FREQUENCY OF FRAMES ON A SKEW TAPE IS 
GUARANTEED TO BE ACCURATE. 


1. ASSURE TAPE IS STOPPED AT BOT. 

2. ISSUE A READ FORWARD (800 BPI, NORMAL) 

3. MONITOR FC FOR FC = 800(10) 

4. MONITOR FC FOR FC = 8800(10) 

5. TIME FROM FC = 800 TO FC = 8800 IS THE TIME REQUIRED 
FOR TAPE TO TRAVEL 10 INCHES 

6. DIVIDE THE TIME FOR 10 INCHES BY 10. 

4 THE RESULT IS AN AVERAGE SPEED FOR 1 INCH. 


T32. TAPE SPEED REVERSE: 


THIS TEST IS THE SAME AS TEST 31, BUT SPEED IS 
MEASURED IN THE REVERSE DIRECTION. 


1. ADVANCE TAPE OFF OF BOT. 
2. ISSUE A READ REVERSE. 
- REPEAT STEPS 3 THRU 6 IN THE REVERSE DIRECTION. 


SEQ 0025 
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-NLIST MC 


100000 


000100 


177776 
177774 


> SWITCH 


MACY11 30(1046) 


~LIST 
- ENABL 
TITLE 


N 
13-JUN-78 


a a 
CZTULAO TMO2 DRIVE FUNCTION TIMER 


~SBTTL STARTING INSTRUCTIONS 
LOADING, AND STARTING PROCEEDURE 


r4 
13:54 PAGE 26 


PROGRAM USING ABS LOADER 


LOAD ADDRESS 200 
SET SWITCH OPTIONS 


PRESS START 


GENERAL REGISTER USAGE: 
RO=ADD 


RESS OF ‘FC’ REGISTER (SET BY SCOPE) 
RI=ADDRESS OF ‘DS’ REGISTER (SET BY SCOPE) 
R2=RETURN PC FROM TIMER (SET BY EACH TEST) 
R3=INDEX INDICATING PREVIOUS OSCILLATOR POLARITY (SET BY TIMER) 
R4=CONTAINS ‘TICK 
RS=ADDRESS OF c$1 (SET BY SCOPE) 


7 hea ASSIGNRENTS 


1 00000 
SW14= 040000 
SW13= 020000 
SW11= 000 
SWi0= 002000 
Sswo9= 001000 
SWwO08= 00 
SwO7= 000200 
Sw06= 000100 
- SBTTL 


COUNT WHEN TIMER IS RUNNING (SET BY TIMER) 


HALT ON ERROR 


zL SUBTEST 
: INHIBIT ERROR TYPE OUT 
; INHIBIT SUBTEST ITERATION 


; INHIBIT PUBLICATION OF FUNCTION TIMES 
RING BELL ON ERROR 

> TYPE LINE ITEM AFTER EACH ITERATION 
SHALT ON TEST SELECTED IN S$w05-Sw00 
sCONTINUOUS CYCLE 


MACRO DEFINITIONS 


REGISTER ASSIGNMENTS 


; REGISTER ADDRESSES 
PSW= 177776 


SLR= 


177774 


» SBTTL 
;:DEFINITIONS AND REGISTER ASSIGNMENTS 
a _ ASSIGNMENTS 


;;PROCESSER STATUS. WORD 
s:STACK LIMIT REGISTER (11/40,11/45) 


SEQ 0026 
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1005 177772 PIRQ= 177772 ;;PROGRAM INTERRUPT REQ. (11/45) 
1006 177770 UBREAK= 177770 ;;MICRO-BREAK REGISTER (11/45) 
1007 177570 HSWR= 177570 ;; SWITCH REGISTER 
1008 177570 DISPLAY=177570 ;;DISPLAY REGISTER (11/45) 
1009 177560 TKS= 177560 ; ;KEYBOARD CSR 
1010 177562 TKB= 177562 ;; KEYBOARD DATA BUFFER REGISTER 
1011 177564 TPS= 177564 ;;TELEPRINTER CSR 
Hy a 177566 TPB= 177566 ;;TELEPRINTER DATA BUFFER REGISTER 
1014 ;;VECTOR ADDRESSES 
1015 000004 ERRVEC=4 ; ADDRESS OF ERROR VECTOR 
1016 000010 SVEC=10 ;;ADDRESS OF RESERVED INST. TRAP VECTOR 
1017 000014 TBITVEC=14 ;;ADDRESS OF ‘T’ BIT TRAP VECTOR 
1018 000014 TRIVEC=14 ; ADDRESS OF ‘TRACE’ TRAP VECTOR 
1019 000014 BPTVEC=14 ;;ADDRESS OF ‘BREAKPOINT’ TRAP VECTOR 
1026 20 I1OTVEC=20 ; ADDRESS OF IOT TRAP VECTOR 
1021 000024 PFVEC=24 ;;ADDRESS OF POWER FAIL TRAP VECTOR 
1022 000030 EMTVEC=30 ; ADDRESS OF EMT VECTOR 
1023 000034 TRAPVEC=34 ; ADDRESS OF TRAP VECTOR 
1024 000060 TKVEC= 60 ;;ADDRESS OF TTY KEYBOARD INT. VECTOR 
1025 000064 TPVEC=64 7: ;ADDRESS OF TTY PRINTER INTERRUPT VECTOR 
1026 000114 PARVEC= 114 ; ADDRESS OF MA/MF PARITY ERROR VECTOR 
1027 000240 PIRVEC=240 ; ADDRESS OF PIRQ VECTOR 
1028 000244 FPEVEC=244 ; ADDRESS OF FLOATING POINT INT. VECTOR 
ys 34 000250 MMVEC=250 ; ADDRESS OF MEM MGMT ERROR TRAP VECTOR 
1031 sCLOCK ADDRESS AND VECTORS 
1032 172540 PLKCSR= 172540 ;KW11-P 
1033 000104 PLKVEC= 104 
1034 177546 KS= 177546 sKW1T-L 
1035 000100 cKVEC= 100 
1036 177514 LPS= 177514 sLP11 
bs 177516 LPB= 177516 
1039 ;RH11,TMO2/TU4S REGISTERS 
Lo 172440 TACST= 172440 
1042 sTMO2/TU45 INDEX VALUES 
1043 000000 CS1= 00 sCONTROL STATUS #1 
1044 000002 wC= 2 
1045 000004 BA= 04 :BUS ADDRESS REGISTER 
1046 00006 FC= 6 FRAME COUNT 
1047 000010 CS2= 10 sCONTROL STATUS #2 
1048 000012 DS= 2 sDRIVE STATUS 
1049 000014 ER= 14 sERROR REG #1 
1050 000016 AS= 16 ATTENTION SUMMARY 
1051 000022 DB= 22 DATA BUFFER REG 
1052 000024 MR= 24 sMAINTENANCE REG 
1053 000026 DT= 26 ;DRIVE TYPE REG 
1054 000030 SN= 30 ;SERIAL NUMBER REGISTER 
Hs 54 000032 TC= 32 ; TAPE CONTROL REG 
1057 ~SBTTL TMO2/TU45S REGISTER BITS 
1058 sRHCS1-CS1(R5) 
1059 000001 GO= 


1060 000000 NOP= 0 
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1061 000002 RWDOFF= 2 
1062 000006 RWD= 6 
1063 000010 DRYCLR= 10 
1064 000026 WFMK= 26 
1065 000024 ERASE= 24 
1066 000030 SPCFWD= 30 
1067 000032 SPCREV= 32 
1068 000050 WCHKF= 50 
1069 000056 WCHKR= 56 
1070 000060 WFWD= 60 
1071 000070 RDFUD= 70 
1072 000076 RDREV= 76 
1073 000100 1E= 100 
1074 000200 RDY= 200 
1075 000400 Al6= 400 
1076 001000 Al7= 1000 
1077 002000 PSEL= 20 
1078 004000 DVA= 4000 
1079 020000 MCPE= 20000 
1080 040000 TRE= 000 
1081 100000 sc= 100000 
1082 ;RHCS2-CS2(R5) 

1083 000000 DVO= 0 
1084 000001 DVi= 
1085 000002 DV2= 2 

0 00003 DV3= 3 
1087 0004 Dv4= 

1 5 DVS= 5 
1089 000006 DV6= 6 

1 000007 DvV7= 7 
1091 00010 BAI= 10 
1092 000020 PAT= 20 
1093 000040 CLR= 40 
1094 000100 IR= 100 
1095 000200 oR= 200 
1096 000400 MDPE= 400 
1097 001000 MXF= 1000 
109 002000 PGE= 2000 
1099 0 NEM= 

1100 010000 NED= 10000 
1101 20000 UPE= 20000 
1102 040000 WCE= 40000 
1103 100000 DLT= 100000 
1104 ; RHDS-DS(R5) 

1105 000001 SLA= 
1106 000002 BOT= 2 
1107 000004 THK= 
1108 000010 IDB= 10 
1109 000020 SDWN= 20 
1110 000040 PES= 40 
1111 000100 ssc= 100 
i112 000200 DRY= 200 
1113 000400 DPR= 400 
1114 002000 EOT= 2000 
1115 004000 WRL= 4000 
1116 010000 MOL= 10000 
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1117 020000 PIP= 20000 
1118 040000 ERR= 40000 
1119 100000 ATA= 100000 
1120 ;RHER-ER(R5) 
1121 900001 ILF= 1 
1122 000002 ILR= 2 
1123 000004 RMR= S 
1124 
1125 000020 FMT= 20 
1126 000100 INCVAE= 100 
1127 000200 PEFLRC= 200 
1128 000400 NSG= 400 
1129 001000 FCE= 1000 
1130 002000 CSITM= 2000 
1131 004000 NEF = 4000 
1132 010000 DTE= 10000 
1133 020000 OPI= 20000 
at 040000 UNS= 40000 
1136 ; RHMR-MR (RS) 
1137 000100 osc= 100 
1138 
1139 ;RHDT=DT(R5) 
1140 002000 SPR= 2000 
1141 019000 CH7= 10000 
Lp 040000 TAP= 40000 
1144 sRHTC-TC(RS) 
1145 000300 NORMT1= 3 
1146 . 000320 CDOM11= 5320 
1147 000000 BPI200= 0 
1148 000400 BP1556= 
1149 001000 BP1800= 001000 
1150 002000 PE1600= 002000 
4 100000 ACCL= 100000 
1153 s INSTRUCTION EQUATES 
1154 104400 HLT= TRAP 
1155 104000 SCOPE= EMT 
a 000004 TYPE= I0T 
1158 sMISCELLANEOUS EQUATES 
1159 005340 OUTBUF=INIT ;OTPUT BUFFER START AT BEG OF PROGRAM 
1160 177400 FRMCNT= -256. FRAME COUNT 
1161 177600 WRDOCNT= -128. ;WORD COUNT 
1162 sASCII EQUATES 
1163 000003 CNTRLC= 3 sASCII CODE FOR CONTROL C ( C) 
1164 000011 HT= 11 sASCII CODE FOR HORIZONTAL TAB 
1165 000012 LF= 12 sASCII CODE FOR LINE FEED 
1166 000015 7 CR= 15 ASCII CODE FOR CARRIAGE RETURN 
1167 000017 CNTRLO= 17 sASCII CODE FOR CONTROL 0 ( QO) 
1168 000025 CNTRLU= 25 sASCII CODE FOR CONTROL U ( U) 
1169 000000 .=0 
1170 000000 000000 0 
1171 000002 000000 0 
1172 000004 000006 +2 
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1229 000166 000000 HALT 
1230 000170 000172 +2 
1231 000172 000000 HALT 
1232 000174 000176 +2 
12335 000176 000000 HALT 
1234 000200 000202 +2 
1235 000202 000000 HALT 
1236 000204 000206 +2 
1237 000206 0000 HALT 
1238 000210 0002 +2 
1239 000212 HALT 
1240 000214 000216 + 
1241 000216 HALT 
1242 0002 000222 c.. 
1243 000222 HALT 
1244 000224 000226 + 
1245 000226 HALT 
1246 000230 000232 + 
1247 000232 HALT 
1248 000234 000236 + 
1249 000236 HALT 
1250 000240 000242 + 
1251 000242 000000 HALT 
1252 000244 000246 ‘.. 
12535 000246 HALT 
1254 000250 000252 + 
1255 000252 HALT 
1256 000254 000256 +2 
1257 000256 HALT 
1258 0002 000262 +2 
1259 000262 HALT 
1260 000264 000266 +2 
1261 000266 HALT 
1262 000270 000272 +2 
1263 000272 HALT 
1264 000274 000276 +2 
1265> 000276 HALT 
1266 000300 000302 +2 
1267 000302 0 0 HALT 
1268 000304 000306 +2 
1269 000306 HALT 
1270 000310 000312 +2 
1271 000312 HALT 
1272 000314 000316 «%@ 
1273 000316 0 HALT 
1274 000320 000322 +2 
1275 000322 HALT 
1276 000324 000326 +2 
1277 000326 HALT 
1278 000330 000332 + 

2 000332 000 HALT 
1280 000334 000336 + 
1281 000336 HALT 

2 000340 000342 + 
1283 000342 HALT 
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001014 


00034 
000200 
000137 


000500 
000600 


001000 


177570 
000000 

000 

000 
000000 
172440 
000000 
000020 


005340 
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HALT 


HALT 
;SETUP TRAP VEC 


ee” 
- 


STKPTR= 600 
-=1000 
: PROGRAM TAGS 


IME: 
ATIMTBL: .BLKW 


TORS 


TVEC 


+2 
HALT 
. TYPE 


0 
PFVEC+2 
HA 


TKISR 
0 


av INIT 
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:SET °T° TRAP TO TIMER ROUTINE 

sPRIORITY LEVEL 7 

:SET IOT TRAP TO .TYPE ROUTINE 

sPRIOTITY LEVEL 0 

sPOWER FAIL TRAP TO HALT 

zAT PFVEC+2 

sSET EMT TRAP TO .SCOPE ROUTINE 
sPRIORITY LEVEL 7 

:SET TRAP TRAP TO .HLT ROUTINE 

:PRIORITY LEVEL 7 


:GO TO START OF PROGRAM 


; STACK 


;TMO2 DRIVE UNDER TEST 

:TU45 SLAVE UNDER TEST 

:POINTER TO SLAVE TABLE (SLVTBL) BELOW 

:BASE ADDRESS OF TMO2/TU4S REGISTERS 
;CONTAINS ‘TICK* COUNT 

sEACH ENTRY CONTAINS TIME FOR FUNCTION 


a 


SEQ 0034 
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1453 ;ENTRIES ARE MADE BY ‘SCOPE’ ROUTINE 
1454 001054 000020 GAPTBL: .BLKW 16. ; TIMES RECORDED BY ‘GAP CONSISTANCY’ TEST 
1455 001114 000000 DELTIM: .WORD 0 ;VARIBLE DELAY 
1456 001116 000000 OCTALO: .WORD 0 
1457 001120 000 GAP : -BYTE 0 ;CONTAINS GAP # (USED FOR TST 021) 
1458 001121 000 ITCNT: .BYTE 0 a COUNT 
1459 001122 000 TSTNUM: .BYTE 0 :TEST # 

1460 001125 000 ERFLG: .BYTE 0 sERROR FLAG 

1461 001124 000 PRGFLG: .BYTE 0 :PROGRAM FLAG 

1462 001125 000 UNTFND: .BYTE 0 :UNIT FOUND INDICATOR 

14635 001126 000 TYPFLG: .BYTE 0 

1464 001127 000 NRZFLG: .BYTE 0 ; INDICATES IF DRIVE IS NRZ ONLY. 
1465 001150 000 ASFLG: .BYTE 0 31/0 = YES/NO. 

1466 001132 EVEN 

1467 001132 030460 DIGTAB: ‘'01 

1468 001134 031462 "23 

1469 001136 032464 "45 

1470 001140 035466 "67 

1471 001142 034470 "89 

1472 001144 000006 ODIGITS:.BLKB 6 sRESERVE SPACE FOR CONVERTED DIGITS 
1473 001152 -BYTE 0 ; TERMINATOR 

1474 001154 EVEN 

1475 001154 000010 DRVTBL: .BLKB 6&. :A 0/-1 = DRIVE NOT TO BE/TO BE TESTED 
1476 001164 000100 SLVTBL: .BLKB 64. ;A 0/-1 = SLAVE NOT TO BE/TO BE TESTED 
1477 001264 000110 INBUF: .BLKB 72. ; TELETYPE INPUT BUFFER 

1478 001374 005015 000 CRLF eASCIZ <CR><LF> sMISCELLANEOUS ASCII CHARACTERS 
1479 001377 1 000 BKSLSH: .ASCIZ ° ° 

1480 001401 060 000 ECHO: .ASCIZ ‘O° 

1481 001403 007 000 BELL ASCIZ <?> 

1482 001405 055 000 DASH eASCIZ ‘-' 

1483 001407 040 SPACE2: .ASCII ° ° 

1484 001410 000040 SPACE: .ASCIZ ‘ ° 

1485 001412 004476 000 ANGTAB: .ASCIZ ‘°>‘<HT> 

1486 001416 - EVEN 
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1487 .SBTTL TIME SPECIFICATION TABLE 
1488 : THE BELOW TABLE CONTAINS THE SPECIFIED FUNCTION TIMES IN TENS OF 
1489 sMICROCESONDS. NOTE THAT WHEN TIMES ARE TYPED THAT THEY ARE TYPED IN 
1490 :MICROSECONDS (BY APPENDING A 0). 
1491 :FORMAT IS 
He : .WORD MAX,MIN sTIME IN MS FUNCTION TEST # 
1494 001416 000000 000000 STIMTBL:.WORD 0,0 : SPARE 
1495 001422 017500 015220 WORD 8000.,6800. 380.0-68.0 WRITE FROM BOT TSTOO1 
1496 001426 001046 000762 “WORD 00550. ,00450 75.50-4.50 WRITE START TSTO002 
1497 001432 000550 -WORD 00450.,0036 :4.50-3.90 WRITE SHUTDOWN 157003 
1498 001436 001130 000714 -WORD 00600. ,00460 :6.0-4.60 WRITE STLDOWN TSTO04 
1499 001442 001666 001426 -WORD 0950.,0790. 39.5-7. READ FROM BOT 1ST005 
1500 001446 900264 000226 -WORD 00180. ,00150 :1.80-1.50 READ START TSTO006 
1501 001452 000252 000202 wOoRD 00170.,00130. :1.70-1.30 READ SHUTDOWN =1TSTO007 
1502 001456 001130 000714 -WORD 00600., -  £6.00-4.60 READ SETTLEDOWN TSTO10 
1503 001462 000264 000226 -WORD 00180. ,00150. :1.80-1.50 RD REV START TSTO11 
1504 001466 346 000276 -WORD 00230.,00190. ;2.30-1.90 RD REV SHTDWN TSTO12 
1505 001472 001130 000714 . WORD oé -  7$6.00-4.60 RD REV STLDWN 1ST013 
15 001476 001440 001130 -WORD 00800.,00600.  ;8.00-6.00 TRN AND OLY F-R TSTO14 
1507 001502 001440 001130 -WORD 00800.,00600. ;:8.00-6.00 TRN RND DLY R-F TSTO15 
1508 001506 001440 001130 . WORD od -  378.00-6.00 GAP SIZE STOP TSTO016 
1509 001512 001440 001130 -WORD 00800.,00600. ;8.00-6.00 GAP SIZE STRT 1ST017 
1510 001516 001440 001130 -WORD 00800. ,00600. 38.00-6.00 GAP SIZE INTER TSTO20 
1511 001522 001440 001250 -WORD 00800.,00680. ;8.00-6.80 GAP CONSISANCY TST021 
1512 001526 000000 000000 -WORD O, 70.0-0.0 DUMMY TSTO022 
1513 001532 002660 002533 -WORD 01456.,01371. 314.56-13.71 DAT TIME 200BPI TSTO23 
1514 001536 002660 002533 WORD 01456., ‘ :14.56-13.71 DAT TIME SS6BPI TST024 
1515 001542 002660 002533 WORD 01456., » 714.56-13.71 DAT TIME 800BPI TSTO25 
1516 001546 002734 002424 -WORD 01 eé . 2:15. 3.00 DAT TIME 1600PE TST026 
1517 001552 013724 012574 -WORD 06100.,05500. ;61.00-55.00 ERASE TST027 
1518 001556 014400 013250 ~WORD 06 . :64.00-58.00 WRT FILE MARK TSTO3O 
1519 001562 002544 002424 “WORD 01380.,01300. :13.80-13.00 READ 1°° TAPE TSTO31 
1330 001566 002544 002424 -WORD 01380.,01300. ;13.80-13.00 RD REV 1°° TAPE TSTO32 
1522 sNOTE: TEST 31 wre 32 REQUIRE PRERECORDED 800BPI SKEW TAPE. 
1523 -SBTTL GAP TIME SPECIFICATION TABLE 
1524 : THIS TABLE CONTAINS THE GAP SIZES (IN TENS OF MICROSECONDS) FOR EACH 
1525 “OF THE 16. GAPS RECORDED BY THE GAP CONSISTANCY TEST (TST021). 
= :NOTE: GAP #°S ARE IN OCTAL. 
LE ; -WORD MAX,MIN(10) sTIME IN MS(10) GAP # DELAY IN MS(10) 
1530 001572 001452 001274 GTIMTBL:.WORD 00810.,00700. :8.10-7.00 GAP-0 0 MS 
1531 001576 001564 001406 -WORD 00884.,00774. ;8.84-7.74 GAP-1 1.0 MS 
1532 001602 001556 001376 «WORD 00878.,00766. :8.78-7.6 GAP-2 2.0 MS 
1533 1606 001452 001274 -WORD 00810., .- 2 -7.0 GAP-3 3.0 MS 
1534 001612 001426 001250 WORD 0790., » :7.90-6.86 GAP-4 4.0 MS 
1535 001616 001426 001250 - WORD 0790.,00680. :7.90-6.80 GAP-5 5.0 MS 
1536 001622 001426 001250 -WORD 00790.,00680 :7.90-6.80 GAP-6 6.0 MS 
1537 001626 001426 001250 -WORD 00790. ,00680. :7.90-6.8 GAP-7 7.0 MS 
1538 001632 001426 001250 -WORD 00790.,00680. ;7.90-6.8 GAP-10 8.0 MS 
1539 1636 001426 001250 -WORD 00790. ,00680 :7.90-6.8 GAP-11 9.0 MS 
1540 001642 001426 001250 ~WORD 00790.,00680. 7.90-6.80 GAP-12 10.0 MS 
1541 001646 001426 001250 -WORD 00790.,00680. ;:7.90-6.80 GAP-13 11.0 MS 
1542 001652 001426 001250 ~WORD 00790. ,00680. -7.90-6.80 GAP-14 12.0 MS 
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1543 001656 001426 001250 WORD 00790.,00680.  ;7.90-6.80 GAP-15 13.1 MS 
1544 001662 001426 001250 "WORD 00790..00680.  :7.90-6.80 GAP-16 14.1 MS 
1545 001666 001426 001250 "WORD 00790..00680.  :7.90-6.80 GAP-17. 15.1 MS 
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CZTUL.A.P11 


001672 


015153 


000011 
0 


10046 


000 


0 
017600 000002 


062766 000002 000002 
105067 177753 


MACY11 30(1046) 


TEST HEADER POINTERS 


-SBTTL TEST HEADER POINTERS 
BL 3 BELOW TABLE CONTAINS POINTERS TO EACH TEST'S DESCRIPTOR 


-WORD 0 

-WORD A.1001 
-WORD A.T002 
-WORD A.T003 
WORD A.1004 
WORD A.1005 
-WORD A.1006 
-WORD A.1007 
WORD A.1010 
-WORD A.T1011 
-WORD A.TO12 


A.1015 
-WORD A.1T016 
~WORD A.1017 
-WORD A.1020 
-WORD A.1021 
-WORD 0 
-WORD A.1025 
-WORD A.1024 
-WORD A.1025 
-WORD A.1026 
~WORD A.1027 
-WORD A.1030 
. WORD - 1031 
-WORD A.1032 


-SBTTL PROGRAM SUBROUTINES 
BTTL TYPE SUB 


13-JUN-78 
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;DUMMY TEST 


OUT INE 


-S R 
; : ROUTINE TO TYPE ASCII MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
3:THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


+3 CALL: 


TYPE 
MESADR 


3A TRAP TYPE INSTRUCTION 
:sMESADR IS FIRST ADDRESS OF ASCIZ STRING 


;; TAGS te oy THE TYPE ROUTINE BELOW 


SNULL: 
SFILL: 


STPFLG: 
STKFLG: 


STPS: 


STPB: .WORD 
SCHARCNT: .BYTE 0 


-BYTE 0 
177564 
177566 


0 
eASCIZ <15><12> 
~ EVEN 


MOV RO,-(SP) 
MOV a2(SP),RO 
ADD #2,2(SP) 
CLRB SCNTRLO 


HORIZONTAL TAB 

; CONTAINS NULL CHARACTER 

:;CONTAINS # OF FILLER CHARACTERS 

+; CONTAINS TELEPRINTER AVAILABLE FLAG 
/377 = AVAIL/NOT AVAIL 

‘CONTA INS KEYBOARD AVAILABLE FLAG 

ADDRESS OF TLEPRINTER STATUS REGISTER 

; ADDRESS OF Hg gh DATA BUFFER 

:: CONTAINS # OF CHARS TYPED 

;:CONTAINS CONTROL O CHAR (IF TYPED) 


7: SAVE RO 
::GET MESSAGE ADDRESS 
: :ADJUST RETURN PC 


SEQ 0038 


CZTULAO — DRIVE ee oe TIMER 


CZTULA. 


002016 


002070 
002074 
002076 
002102 


002104 


07-JUN-7 


105767 
3 


016746 
105366 


000772 
105777 


000703 


010546 


01 
000207 


17:07 
177747 
001772 


000011 


000026 
000012 


177670 


000001 
000002 


177654 
000017 


000002 
000015 


177624 
000012 
177606 


000040 
177710 
000007 


000014 


001771 


177636 
000002 


000002 


177566 
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7;BRANCH IF CONTROL O( 0) WASN'T TYPED 
s; TYPE <CR><LF> 


;;PUSH CHARACTER TO BE TYPED ONTO STACK 
;;BRANCH IF NOT THE TERMINATOR 

;;POP TERMINATOR CHAR OFF THE STACK 
;;RESTORE RO 

;;RETURN TO CALLER 


: BRANCH IF HORIZONTAL TAB <HT> 


:; TYPE CHARACTER 

;;CHECK IF CHARACTER WAS A LINE FEED 
;;BRANCH IF NOT LINE FEED 

;;GET # OF FILLERS REQUIRED AND FILLER 
;; CHARACTER. 


7 :DECREMENT FILLERS REQ. COUNT 
: BRANCH IF NO MORE FILLERS ARE REQUIRED 
sz: TYPE FILLER CHARACTER 


;;WAIT FOR OUTPUT DEVICE 


+s CHECK IF CONTROL O WAS TYPED 
;:STOP TYPING MESSAGE IF 0 WAS TYPED 
: OUTPUT CHARACTER 

: TBRANCH IF NOT <CR> 


;;CLEAR CHARACTERS TYPED COUNT 
>:BRANCH IF <LF> OR ‘NULL* 
3; INCREMENT CHARACTER TYPED COUNT 


;;LOAD ‘SPACE‘ 

33; TYPE ‘SPACE’ 

7: TYPE SPACES UNTIL A MULTIPLE 
:;0F 8 CHARACTERS HAVE BEEN TYPED 
;:POP SPACE 

::GET NEXT CHARACTER 


:SAVE REGISTERS ON THE STACK 


1$: TSTB SCNTRLO 
BEQ 12$ 
TYPE ,SCRLF 
BR 11$ 
12$: MOVB (RO) +,-(SP) 
BNE $ 
TST (SP)+ 
118: MOV (SP)+,RO 
RTI 
2$: CMPB #SHT, (SP) 
BEQ 9$ 
JSR PC,5$ 
3$: CMPB #12, (SP)+ 
BNE 1$ 
MOV SNULL ,~(SP) 
4$: DECB 1(SP) 
BLT 3$ 
JSR PC,5$ 
BR 4$ 
5$: TSTB asTPs 
BPL . .™ 
CMPB #17, a#SCNTRLO 
BEQ . 6% 
MOV? 2(SP) ,aSTPB 
6$: CMPB #15,2(SP) 
BNE 
CLRB SCHARCNT 
BR 8$ 
7$: CMPB #12,2 (SP) 
BGE 
INCB SCHARCNT 
8$: TS PC 
s HORIZONTAL TAB <HT> PROCESSER 
9$: MOVB #40, (SP) 
10$: JSR PC,5$ 
BITB #7, SCHARCNT 
BNE 10$ 
TSTB (SP) + 
i 1$ 
: SUBROUTINE TO SAVE GENERAL REGISTERS ON THE STACK 
:CALL: SAVE 
-SAVE: MOV R5,-(SP) 
MOV R4,-(SP) 
MOV R3,-(SP) 
MOV R2,-(SP) 
MOV R1,-(SP) 
MOV RO,-(SP) 
MOV 14(SP), -(SP) 
RTS PC 


;GET RETURN PC 
RETURN 


SEQ 0039 


4 
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1658 : SUBROUTINE TO RESTORE GENERAL REGISTERS FROM THE STACK 
1659 CALL: RESTORE 
1660 002232 012666 000014 “RESTORE : MOV (SP)+,14(SP) sMOVE RETURN PC 
1661 002236 012600 MOV (SP)+,RO “RESTORE REGISTERS 
1662 002240 012601 MOV (SP)+,R1 
1663 002242 012602 MOV (SP)+,R2 
1664 002244 012603 MOV (SP)+,R3 
1665 002246 012604 MOV (SP)+,R4 
1666 002250 012605 MOV (SP)+,R5 
1667 002252 000207 RTS PC s RETURN 
1669 :SUBROUTINE TO CONVERT OCTAL DATA TO ASCII 
1670 CALL: MOV NUMBER ,R2 ;MOVE NUMBER TO R2 
oor : JSR PC, CNVOCT 
1673 002254 110667 176646 CNVOCT: MOVB SP, TYPFLG :SET DO NOT TYPE FLAG 
wore 002260 000402 BR CNVTO 
1676 ~SBTTL OCTAL TO ASCII & TYPE ROUTINE 
1677 sSUBROUTINE TO CONVERT OCTAL NUMBER TO ASCII ue TYPE IT OUT 
1678 [CALL: MOV NUMBER ,R2 :PUT # IN R2 
9 : JSR PC, TYPOCT :CALL ROUTINE 
1681 002262 105037 001126 TYPOCT: CLRB asTYPFLG :SET TYPE FLAG 
1682 002266 CNVTO: 
1683 002266 004767 177716 JSR PC,.SAVE SAVE REGISTERS ON THE STACK 
1684 002272 012704 001144 MOV #ODIGITS,R4 :SET PTR TO OUTPUT 
1685 002276 005003 CLR R3 :R3 WILL CONTAIN OCTAL DIGIT 
1686 002300 010201 MOV R2,R1 :GET # TO BE TYPED 
1687 002302 006302 1$: ASL R2 :SHIFT # 
1688 002304 006103 ROL Ra 
1689 002306 012700 000006 MOV #6,R0 :SET DIGIT COUNTER 
be 002312 000404 BR 3$ 
1692 002314 006302 2$: ASL RZ :SHIFT # 3 PLACES LEFT 
1693 002316 006103 ROL R3 
1694 002320 005301 DEC R1 
1695 002322 001374 BNE 2$ 
1696 002324 012701 000003 3$: MOV #3,R1 SET SHIFT COUNTER 
1697 002330 116324 001132 MOVB DIGTAB(R3), (R4)+ :MOVE ASCII EQUIV TO OUTPUT 
1698 002334 005003 CLR R3 
1699 002336 005300 DEC RO :DECREMENT DIGIT COUNT 
1700 002340 001365 BNE 2% :GET NEXT DIGIT 
1701 002342 105737 001126 TSTB asTYPFLG -BRANCH IF ASCII IS 
1702 002346 001002 BNE 4$ :NOT TO BE TYPED 
1703 002350 000004 001144 TYPE ,ODIGITS 
1704 002354 4$: 
1705 002354 004767 177652 JSR PC, .RESTORE RESTORE REGISTERS FROM THE STACK 
1706 002360 000207 RTS PC 
1707 
1708 
1709 : SUBROUTINE TO CONVERT OCTAL DATA TO DECIMAL ASCII 
1710 “CALL: MOV NUMBER,R2 MOVE NUMBER TO R2 
ia ; JSR PC, CNVDEC 
1713 002362 110637 001126 CNVDEC: MOVB SP, a#TYPFLG SET DO NOT TYPE FLAG 
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1714 002366 000402 BR CNVTD 
1715 .SBTTL OCTAL TO DECIMAL & TYPE ROUTINE 
1716 :THIS ROUTINE CONVERTS AN OCTAL # TO DECIMAL ASCII AND TYPES IT OUT 
1717 =CALL: MOV NU »R2 :PUT # IN R2 
4 ; JSR PC, TYPDEC sCALL ROUTINE 
1720 002370 105037 001126 TYPDEC: CLRB ae TYPFLG :SET TYPE FLAG 
1721 002374 CNVTD: 
1722 002374 004767 177610 JSR PC,.SAVE ;SAVE REGISTERS ON THE STACK 
1723 002400 005000 CLR RO :RO IS INDEX TO DECIMAL CONSTANT 
1724 002402 012704 001144 MOV #ODIGITS,R4 :SET OUTPUT PTR 
1725 002406 005003 1$: CLR R3 :R3 CONTAINS DECIMAL DIGIT 
1726 002410 166002 002470 2$: SUB DCONST (RO) ,R2 “SUBTRACT DECIMAL CONSTANT UNTIL 
1727 002414 103402 BLO 3$ : INPUT # GOES NEGATIVE 
1728 002416 005203 INC R3 :KEEPING TRACK OF SUBTRACTIONS 
1729 002420 000773 BR 23 
1730 002422 066002 002470 3$: ADD DCONST(RO),R2 :ADD BACK CONSTANT WHEN NEGATIVE 
1731 002426 116324 001132 MOVB DIGTAB(R3) , (R4)+ :MOVE ASCII EQUIVILENT 
1732 002432 062700 000002 ADD #2,R0 :NEXT CONSTANT 
1733 002436 005760 002470 TST DCONST (RO) :UNTIL ALL CONSTANTS DONE 
1734 002442 001361 BNE rh} 
1735 002444 112724 000060 MOVB #'0,(R4)+ :LAST DIGIT IS 0 
1736 002450 105737 001126 TSTB a#TYPFLG :BRANCH IF ASCII IS 
1737 002454 001002 BNE 4$ :NOT TO BE TYPED 
1738 002456 000004 001144 TYPE ,ODIGITS 
1739 002462 43: 
1740 002462 004767 177544 JSR PC, .RESTORE sRESTORE REGISTERS FROM THE STACK 
tase 002466 000207 RTS PC . 
1743 002470 023420 DCONST: .WORD 10000. 
1744 002472 001750 WORD 1000. 
1745 002474 000144 WORD 100. 
1746 002476 000012 WORD 10. 
1747 002500 000001 WORD 1. 
1748 002502 000000 WORD 0 : TERMINATOR 
1750 ~SBTTL TYPE SPECIFIED TIMES ROUTINE 
1751 : THIS SUBROUTINE OUTPUTS THE TIME SPECIFICATIONS FOR THE TEST 
1752 “AND ALSO THE ACTUAL TIME RECORDED (ATIME) 
1753 FORMAT OF LINE TYPED 
1754 > RANGE =<AAAAAA~BBBBBB> ACTUAL=CCCCCC 
1755 ; WHERE : ss AAAAAA IS MAXIMUM TIME FOR TEST (STIMTBL(TSTNUMX4)). 
1756 : BBBBBB IS MINIMUM TIME FOR TEST (STIMTBL(TSTNUMX4+2)). 
1757 ; CCCCCC IS ACTUAL TIME RECORDED BY TEST (ATIME). 
1758 -CALL: MOVB TEST NUMBER,R2 ;LOAD TEST R 
1759 : MOV STIME ,@#ATIME :MOVE TIME TO ATIME 
1760 : JSR PC ,OUTSPC 
1761 002504 010246 OUTSPC: MOV R2,-(SP) :SAVE R2 & R3 ON THE STACK 
1762 002506 010346 MOV R3,-(SP) 
1763 002510 006302 ASL R2 MULTIPLY TEST # TIMES 4 
1764 002512 006302 ASL R2 :TO FORM INDEX INTO STIMTBL 
1765 002514 010203 MOV R2,R3 *R3 CONTAINS INDEX INTO TABLE 
1766 002516 000004 014175 TYPE,L.RNG 
1767 002522 016302 001416 MOV STIMTBL(R3) ,R2 :GET MAXIMUM SPEC TIME 
1768 002526 004767 177636 JSR PC, TYPDEC :CONVERT TO DECIMAL & TYPE 


1769 002532 000004 001405 TYPE ,DASH 
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016302 
004767 
000004 


000207 


010246 
010346 
116703 
0063 


012703 


001420 


001374 


176310 


014175 


177272 . 


001264 
001116 


000002 
000015 


177770 
000003 
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OUTGAP: 


CNVTAO 


1$: 


D 
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MOV Bigs healt R2 
JSR PC, TYPDEC 

TYPE ,ANGTAB 

TYPE ,L.ACT 

MOV Q#ATIME ,R2 

JSR PC, TYPDEC 

TYPE ,C 

MOV (SP)+,R5 

MOV (SP)+,R2 

RTS PC 








4 
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TYPE SPECIFIED TIMES ROUTINE 


SEQ 0042 


;GET MINIMUM TIME 
; CONVERT TO DECIMAL & TYPE 


;GET ACTUAL TIME 
;CONVERT TO DECIMAL & TYPE 


; RETURN 


»SBTTL TYPE GAP TIMES SUBROUTINE 
; THIS SUBROUTINE IS USED TO TYPE THE SPECIFIED GAP SIZES (RECORDED IN 
:TST021). IT IS CALLED BY THE GAPOK ROUTINE IF THE GAP SIZE IS OUT OF 


* RANGE VIA THE HLT ROUTINE (HLT+#2). 
LL: MOVB 


#GAP ,GAP 

#TIME ,ATIME 
JSR PC ,OUTGAP 
MOV R2,-(SP) 
MOV R3,-(SP) 
MOVE GAP RS 
ASL R3 
ASL 3 
TYPE ,L.RNG 
MOV GTIATBL(R3) ,R2 
JSR C, TYPDEC 
TYPE ,DASH 
MOV GTIATBL+2(R35) ,R2 
JSR PC, TYPDEC 
TYPE , ANGTAB 
TYPE ,L.ACT 
MOV @#ATIME ,R2 
= PC, TYPDEC 
MO @4GAP ,R2 
JSR PC, TYPOCT 
TYPE, 
MOV (SP)+,R5 
MOV (SP)+*,R2 
RTS 


;LOAD GAP # INTO GAP 
;LOAD ACTUAL TIME INTO ATIME 


;SAVE R2 AND R3 
:GET GAP # 


:GET 


MAX TIME 
:CONVERT TO DECIMAL & TYPE 
GET MIN TIME 

:CONVERT TO DECIMAL & TYPE 
s TYPE < 


:GET ACTUAL TIME 
:CONVERT TO DECIMAL & TYPE 


3GET GAP # 
: TYPE GAP # 


RESTORE R3 AND R2 


- SBTTL ASCII TO OCTAL CONVERT SUBROUTINE 
;SUBROUTINE TO CONVERT ASCII DATA TO OCTAL. CONVERTED OCTAL DATA 
;1S LEFT IN OCTALO <15-00>. 


PC,.SAVE 
#INBUF ,RO 
#OCTALO,R1 
(R1) 

2(R1) 

#CR, (RO) 
3$ 


(RO)+,R2 
#177770,R2 
#3,R3 


sSAVE REGISTERS ON THE STACK 
;SET PTR TO ASCII DATA 

:GET ADDRESS OF OCTAL DATA 
sCLEAR OUT OLD OCTAL DATA 


7<CR> TERMINATES INPUT 
;GET ‘OCTAL* DATA 


;STRIP UNUSED BITS 
;SET SHIFT COUNT 
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000761 


004767 
000207 


00 
001374 


113700 


17:07 


000002 


177234 


177204 


000001 


000004 


000002 


001012 
001122 
001672 
001122 


177364 
177106 


000002 
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SCII TO OCTAL aatireall SUBROUTINE 


2$: 


3$: 


PUBLISH: 


1$: 


23: 
3$: 


4$: 


un 
6? 
ee 


E 4 
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(R1) 
2(R1) 
R3 

5 
R2,(R1) 
1$ 


PC,.RESTORE 
PC 


3 


; SHIFT LAST 


SOCTAL DIGIT 

;AND INSERT THIS DIGIT 

;GO GET NEXT DIGIT 

s;RESTORE REGISTERS FROM THE STACK 
ETURN 


~SBTTL PUBLISH SUBROUTINE 

;THE PUBLISH SUBROUTINE AVERAGES THE RECORDED TIMES FOR EACH TEST IT- 
sERATION (IF 16. ITERATIONS) AND PLACES THE AVERAGE RESULT IN ‘ATIME’. 
:1T TYPES THE NAME OF THE FUNCTION THAT WAS TIMED, THE TIME SPEC- 

s IFICATION AND THE ACTUAL TIME . 


PC,.SAVE 
#ATIATBL,RO 
Q#1TCNT RI 
#1,R1 

4% 


R2 


R2,Q#AT IME 

as TSTNUM,RO 
NAMPTR(ROD , 5S 
S4TSTWUR.R2 


PC ,OUTSPC 
tata 


INPUT SUBROUTINE 


. SBTTL 
; SUBROUTINE TO GET TTY INPUT 
sCALL: JSR PC,. INPUT 
: INPUT DATA IS RETUNED IN BUFFER BEGINNING AT INBUF. 


;SAVE REGISTERS ON THE STACK 

;GET TABLE ADDRESS CONTAINING TIMES 

;GET # OF ENTRIES (GIVEN BY ITERATION COUNT) 
;BRANCH IF SINGLE ITERATION 


CLEAR *SUM* REGISTERS 
;BRANCH IF 4. ITERATIONS 


: ITERATION COUNT MUST BE 1 OR 16. 
:D0 NOT CHANGE POSIT OF Sw11 
;WHEN TEST IS RUNNING. 


;SUM INDIVIDUAL TIMES 


sSHIFT TIME IN R35 & R2 4 PLACES 
sRIGHT = 


DIVIDE BY 16. 


sMOVE AVERAGED TIMES 
sGET TEST # 
;GET TEST NAME STRING ADDRESS 


;GET TEST @ 
sOUTPUT TIMES 
RESTORE REGISTERS FROM THE STACK 


SEQ 0043 
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003140 
003142 


07-JUN- 


010046 
012700 
105737 
100375 


113746 


122726 
001003 
000005 


000137 
000002 


000000 


001264 
177560 


177562 
000200 
000177 
001377 


000025 


001374 
001401 
000015 
001401 
001374 


177562 
000200 
000017 


176507 


000003 


005340 


176676 
001123 
020000 


013465 


175454 


F 
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INPUT: MOV RO,-(SP) 
1$: MOV #INBUF ,RO 
2$: TSTB a#TKS 

BPL 2$ 

MOVB a@#TKB,-(SP) 


BIC #200, (SP) 


CMPB #177, (SP) 
BNE 3$ 
CMPB -(RO), (SP)+ 
TYPE ,BKSLSH 
BR $ 
3$: CMPB #CNTRLU, (SP) 
BNE 4$ 
TST (SP)+ 
TYPE CRLF 
4$: MOVB (SP) ,a@#ECHO 
MOVB (SP), (RO)*+ 
CMPB #CR,(SP)+ 
BEQ 5$ 
TYPE ,ECHO 
BR 2$ 
5$: TYPE CRLF 
MOV (SP)+,R0 
RTS PC 


sKEYBOARD INTERRUPT SERVICE ROUTINE 
TKISR: MOVB a#TKB,-(SP) 


BIC #200, (SP) 
CMP #CNTRLO, (SP) 
BNE 1 
MOVB (SP)+,SCNTRLO 
RTI 
1$: CMPB #3,(SP)+ 
NE 2$ 
RESET 
JP av INIT 
2$: RTI 


§ 
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;SAVE RO ON THE STACK 


;GET CHARACTER 
; CHECK RUBOUT 
;REMOVE CHARACTER FROM INPUT 


;WAIT FOR NEXT CHARACTER 
; CHECK CONTROL U ( U) 


T TYPED CHARACTER 
:STRIP PARITY BIT 
:BRANCH IF NOT CONTROL 0 ( 0) 


;SET CONTROL O INDICATOR IN TYPE ROUTINE 
sEXIT 
sBRANCH IF NOT CONTROL C ( C) 


sRESTART PROGRAM 


-SBTTL ERROR SERVICE ROUTINES 
;ROUTINE TO PROCESS ERROR TRAPS (TRAPS TO 4) 


ERRTRP: HALT 
+ ERROR SERVICE ROUTINE 


:THIS ROUTINE PROCESSES TWO TYPES OF ERRORS (OUT OF RANGE AND HARDWARE) 
[THE CALLS FOR AN OUT OF RANGE ERROR ARE <HLT+1>,<HLT#2> AND, FOR A 
sHARDWARE ERROR THE CALL IS <HLT>. 


“THLT: NOP 
JSR PC,.SAVE 
MOVB SP ,@#ERFLG 
BIT #SW13,aSWR 


BNE 4$ 
TYPE ,E.HOR 


: SAVE A Shes ON THE STACK 
;SET ERROR FLAG 
:BRANCH IF NO TYPOUT 


SEQ 0044 


C2T 


ULA.P 


113702 
004767 


000004 


032777 
001402 


000004 
005777 
100001 
000000 


004767 
000002 


17:07 
001122 
176720 


000016 
000002 


013550 
000002 


177204 
001374 


177076 
001374 


000014 
002000 


102100 
102300 


013441 


013475 
000007 
176566 
001407 


000032 
176546 
001374 
001000 


001403 
175240 


176462 
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000032 


175252 
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10$: 


2$: 


208: 
218: 


228: 


3$: 


4$: 


5$: 


6$: 


-SBTTL 
;SCOPE ROUT 


G 
13-JUN-78 
ERROR SERVICE ROUTINES 


@#TSTNUM,R2 
JSR PC, TYPOCT 
MOV 16(SP),RO 


SUB #2,R0 
MOVB (RO) ,RO 
BEQ 2$ 
TYPE ,E .HDR2 
CMPB #2,R0 
BNE 


10% 
JSR PC ,QUTGAP 
E,CRLF 
4$ 
JSR PC ,OUTSPC 
CRLF 
MOV ER(R5) ,RO 
BIT #PE1600,TC(R5) 


20$ 
BIC aaa 
BIC #102300 ,R0 
RO 
8 228 
TYPE ,E.SFT 
BR 6$ 
TYPE ,E .HDR1 
MOV RS, 
MOV #7.,R1 
MOV (RO)+,R2 
JSR PC, TYPOCT 
TYPE , SPACE2 
DEC R1 


BNE 3$ 
MOV TCCRS) ,R2 
JSR PC. TYPOCT 


TYPE ,CRLF 

BIT #SW09 ,aSuR 
EQ 5$ 

TYPE ,BELL 

TST aSUR 

BPL 6$ 

HALT 


JSR PC, .RESTORE 
RTI 


4 
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;GET TEST # 

s;AND TYPE IT 

;GET RETURN PC 

;NOW PC OF HLT CALL 
;NOW HLT CALL ITSELF 
;BRANCH IF HLT 


sBRANCH IF NOT HLT*2 
; TYPE GAP SPECIFIED TIMES 


; TYPE SPECIFIED TIMES 


; TYPE SOFT ERROR MESSAGE 


;GET FIRST ADDRESS OF REGS. 
sTYPE FIRST 7 REGS. 

:GET REG CONTENTS 

sAND TYPE IT 


:GET CONTENTS OF TC REGISTER 


;BRANCH IF NO RING THE BELL 


;HALT ON ERROR? 


sRESTORE REGISTERS FROM THE STACK 
; RETURN 


SCOPE SUBROUTINE 


INE 

; THIS ROUTINE IS ENTERED UPON COMPLETION OF EACH SUBTEST 

; THE SCOPE ROUTINE: 

OUTPUTS TIME SPEC ON EACH ITERATION IF SwWO8 IS SET 
REPEATS TEST IF SWi4 IS SET 

STORES ACTUAL TIME FOR FUNCTION IN TIME TABLE (ATIMTBL) 


Ps 
. 
e 


. 
¥ 


SEQ 0045 


phe TMO2 DRIVE FUNCTION TIMER 


ULA.P 


003552 
56 


003766 


07-JUN-78 1 


013705 


000707 


17:07 


001010 
000400 


001122 
176706 
040000 


000542 


175154 
000012 
000006 


0011235 
001121 
001012 
001121 
004000 
000004 


001002 
002000 


177046 
001121 
175036 


175030 
177740 


001122 


175214 


175174 


001014 
175100 
001121 


175054 


MACY11 30(1046) 


H 
13-JUN-78 


SCOPE SUBROUTINE 


PUBLISHES TIME IF SW10=0 
UPDATES ITERATION COUNT AND IF ITERATIONS COMPLETE CONTINUES 
TO NEXT TEST, OTHERWISE REPEATS TEST. 

DELAYS BEFORE CONTINUING OR REPEATING TEST. 


;RETU 


-SCOPE: MOV 


10S: BIT 


2$: TSTB 


3$: INCB 


4$: MOV 


5$: CLRB 


: INITIALIZES DRIVE 
“RETURNS: 


4 
13:54 PAGE 46 


RS=BASE ADDRESS OF TMO2 REGISTERS (ADDRESS OF CS1) 


R1="DS* REG ADDRESS 
RO="FC* REG ADDRESS 


@#TMBASE ,R5 
#SW08 ,aSUR 
10$ 
@#TSTNUM,R2 


PC ,OUTSPC 
_— 


a#ERFLG 
SCPADR, (SP) 
R5,R1 

#05 ,R1 
R5,R0 
#FC.RO 
a#ERFLG 

3$ 

_ 
Q@#ATIME ,ATIMTBL (RO) 
avi TCNT 
a 
#4 ,a#1TCNT 
1$ 


(SP) ,a#SCPADR 
oo 


PC, PUBLISH 
aviTCNt 

asuR 
aswR,-(SP) 
#177740, (SP) 
(SP) 

agTSTNUR, (SP)* 


1$ 


~SBTTL TIMER SUBROUTINES 


; SUBROUTINE TO SYNCHRONIZE THE TIMER AND TURN IT ON. 
sREGISTER 4 IS CLEARED, AND THE OSCILLATOR POLARITY IS MONITORED 
;THE ROUTINE IS EXITED WHEN THE OSCILLATOR POLARITY CHANGES WITH R3 


:SET RS TO FIRST TM REG 
:;BRANCH IF SPECIFICATION LINE 
;NOT DESIRED ON EACH ITERATION 
:GET TEST NUMBER 

sOUTPUT TIME RECORDED 

:BRANCH IF CONTINUOS LOOP 

;NOT DESIRED 

:DELAY 350 MS 


; INIT 
;CLEAR ERROR FLAG 


;ADDRESS OF ‘DS* REG IS IN RI 


sADDRESS OF ‘FC* REG IS IN RO 


:BRANCH IF ERROR FLAG IS SET 


;GET ITERATION COUNT 
;STORE TIME IN TABLE 


; INCREMENT ITERATION COUNT 


;BRANCH IF SINGLE ITERATION DESIRED 


;BRANCH IF ITERATIONS INCOMPLETE 


:SET SCOPE ADDRESS TO NEXT TEST 
;BRANCH IF NO PUBLICATION DESIRED 


:GO PUBLISH TEST DATA 

;RESET ITERATION COUNT 

;BRANCH IF USER DOES NOT WANT TO 
sHALT ON A SELECTED TEST 

;GET SWITCHES 

sCLEAR ALL yi TEST # 

FORM TEST # -1 

:BRANCH IF NOT AT TEST 


SEQ 0046 





CZTULAO TMO2 DRIVE FUNCTION TIMER 
CZTULA.P11 


003770 
003772 
003776 
004004 


004116 


07-JUN-78 1 


005004 


000207 


032765 
001406 
000112 


004060 


004104 


032765 
001362 
000112 


17:07 


000024 
000100 


000100 


000100 


000100 


013576 
174700 


000100 


000024 
000024 


000024 


000024 


000024 


1 4 
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TIMER SUBROUTINES 
;SET TO INDICATE “ POLARITY OF THE OSCILLATOR. 
JSR PC, TIMON 


CALL: 
¢ RETURNS: af ig | TO INDICATE LAST POLARITY (4*24/-24=0/1) 


TIMON: CLR R4 ;CLEAR TIME COUNT 
MOV #24,R3 ;SET POLARITY TO ‘0° STATE 
BIT oo ;BRANCH IF POLARITY IS ‘O° 


BEQ 
1$: BIT #OSC,MR(RS) sWAIT FOR OSCILLATOR TO RETURN 
BNE 1$ 
BR 4% 
2$: NEG R3 ;NEGATE PREV POLARITY INDICATOR 
3$: BIT #OSC,MAR(R5) sWAIT FOR OSCILLATOR TO RETURN 
BEQ 3$ :TO ‘1° STATE 
4$: RTS PC 


; SUBROUTINE TO COUNT FIME 
sEACH TIME THE OSCILLATOR TOGGLES (BIT <06> IN MR REG) REGISTER 
sR4 IS INCREMENTED, AND THE 1 te R3 IS NEGATED TO INDICATE 
;THE LAST STATE OF THE OSCILLATOR. 
TIMER (RS) ;R3 1S SET BY TIMON ROUTINE 


:CALL JMP MER 

R2=RETURN ADDRESS TO CALLER 
:MOTE: THE TIME TO EXECUTE THIS ROUTINE IS VERY CRITICAL. IT MUST BE 
sLESS THAN 40 US. 


sENTER HERE VIA JMP TIMER(RS) WHEN ween STATE=1) 


TIMER: BIT #OSC .AR(R5) CH IF CURRENT STATE IS ‘O° 
BEQ TIMER :GO INCREMENT TIME 
JMP (R2) ;RETURN TO TEST 
-=TIMER1+24 

TIMER: WEG R3 


sNEGATE PREV STATE INDICATOR 
; INCREMENT ‘TICK* COUNT 
;BRANCH ON OVERFLOW 

;RETURN TO TEST 

sTYPE ‘TIMER OVERFLOWED* 
sREPORT HARDWARE ERROR 
;RETURN TO BEGINNING OF TEST 


NC R4 
BAI TIMERR 
JMP (R2) 
TIMERR: TYPE,E.TIMOV 
HLT 


JMP @SCPADR 


~=TIMER+24 
: ENTER HERE VIA JMP TIMER(R3) WHEN R3=+24 (PREV STATE=0) 
TIME RO: aoe ret MRCRS) sBRANCH IF CURRENT STATE = ‘1° 


JMP (R2) 


; SUBROUTINE TO CHECK TIME RECORDED BY SUBTEST. 
THIS SUBROUTINE COMPUTES THE ACTUAL TIME (IN MICROSECONDS) AND CHECKS 
THAT THE TIME RECORDED BY THE SUBTEST IS CORRECT BY COMPARING THE TIME 
SWITH THE HIGH LIMIT (STIMTBL(RO)) AND THE LOW LIMIT (STIMTBL+2(RO)). 
;1F THE TIME IS OUT OF RANGE AN OUT OF RANGE ERROR TYPEOUT RESULTS. 
; THE SUBROUTINE IS oo WITH: 

; R4=TICK COUNT 


TIMOK: 


SEQ 0047 


oes Fh TMO2 DRIVE FUNCTION TIMER 


07-JUN-78 1 


004767 


010246 


010346 
012746 
004767 


104401 


004767 
000207 


004767 


01 
012746 
004767 


17:07 


176066 
000104 


000012 
000262 


001012 
001122 
001012 
001012 


176006 


175756 
000104 


000012 
000152 


001012 
001120 


001416 
001420 


J 4 
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TIMER SUBROUTINES 


JSR PC,.SAVE : SAVE REGISTERS ON THE STACK 
MOV #68. -RO “GET TIME PER TICK 


MOV ‘ ;GET TICKS COUNT 

oe ne :CLEAR SUMMING REGISTERS 
1$: ADD RO,R2 sMULTIPLY TIME PER TICK 

ADC R3 ;BY TICK COUNT 

DEC R1 

BNE . 


1$ 
MOV R2,-(SP) 
MOV R3,-(SP) 


;DIVIDE COUNT BY 10. 


MOV #10.,-(SP) 
JSR PC ,DIVIDE 
TST (SP)+ ;DISCARD REMAINDER 
MOV (SP)+,@#ATIME sSTORE QUOTIENT 
MOVB a4 TSTNUM,RO ;GET TEST # 
ASL RO 
ASL RO 
CMP Q#ATIME ,STIMTBL (RO) ;CHECK THAT TIME IS WITHIN 
BHI 2s sLIMITS SPECIFIED 
CMP @#ATIME ,STIMTBL42(RO) 
BHI 3$ 
e HLT+1 :CALL ERROR ROUTINE 
JSR PC, .RESTORE sRESTORE REGISTERS FROM THE STACK 
RTS PC ; RETURN 
; SUBROUTINE TO CHECK INDIVIDUAL GAP TIMES (PRODUCED BY TSTO21) 
[SUBROUTINE COMPUTES THE ACTUAL TIME (IN MICROSECONDS) AND CHECKS 


ou 
; THAT THE GAP TIME RECORDED BY THE SUBTEST (TSTO21) BY COMPARING THE 
sTIME WITH THE MAX + ei (GTIMTBL-GAPTBL(R1)) AND THE MIN LIMIT 


: (GTIMTBL*2-GAPTBL ( 1)) 
;CALL: MOV #TICK COUNT ,R4 7R4 CONTAINS TICK COUNT 








; #GAP ,a#GAP ;LOCATION GAP CONTAINS GAP # 
: PC ,GAPOK 
GAPOK 
JSR PC,.SAVE ;SAVE REGISTERS ON THE STACK 
MOV 68., ;GET TIME PER TICK 
MOV R4,R1 ;GET TICK COUNT 
es “ ;CLEAR SUMMING REGISTERS 
1$: ADD RO,R2 sMULTIPLY TICK COUNT 
ADC R35 ;BY TIME PER TICK 
DEC R1 
BNE 1$ 


:DIVIDE TIME BY 10. 


JSR PC DIVIDE 


TST (SP)+ ;DISCARD REMAINDER 
MOV (SP)+,@#ATIME ;STORE QUOTIENT 
MOVB @#GAP R35 :GET GAP @ 

ASL R3 ;MULTPLY BY 4 


SEQ 0048 


CZTULAO TMO2 DRIVE FUNCTION TIMER 
CZTULA.P11 78 17:07 


6 
2217 


07-JUN- 


006305 
023765 
10100 


004767 


004767 
000207 


004767 
010246 
012702 


000163 
032704 
001773 
012602 
000207 


005767 


004442 005046 


001012 001572 
001012 001574 


000400 
176232 


175660 


177410 
004372 


004060 
004000 


174504 
177352 
004430 


004060 
001114 


174440 


K 4 
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TIME UTINES 


2$: 
38: 


100$: 


DELAY: JS 
MOV R2,-(SP) 
- MOV #2$,R2 
JMP TIMER(R3) 
2$: BIT #4000 ,R4 
BEQ 1 
MOV (SP)+,R2 
RTS PC 
JSR PC DELAY 
DELAYV: TST DELTIM 
BEQ 3$ 
JSR PC, TIMON 
MOV R2,~-(SP) 
MOV #23, 
1§: 
JAP TIMER(RS) 
23: CMP @FDELTIA,R4 
BHI 1$ 
MOV (SP)+,R2 
3$: RTS PC 


-SBTTL DIVIDE SUBROUTINE 


R3 
Q#ATIME ,GTIMTBL (RS) 
earn eee 


100$ 
#SW08 ,aSWR 
PC ,QUTGAP 


PC, RESTORE 
PC 


~SBTTL 
hey 4 SUBROUTINE CAUSES A 
R PC, TIMON 


TO GET AT TABLE ENTRY 
"CHECK TIME (MAX) 


;CHECK TIME (MIN) 

;REPORT OUT OF RANGE ERROR 
;BRANCH IF TIMES NOT WANTED 
; TYPE GAP TIMES 


;RESTORE REGISTERS FROM THE STACK 


;RETURN TO TEST 


ren SUBROUTINES 
DELAY OF 350 MS. 


;SAVE R2 ON THE STACK 
;SET RETURN ADDRESS FOR TIMER 


:GO0 TO TIMER & RETURN VIA R2 


sRESTORE R2 


: THIS SUBROUTINE ALLOWS A CALLER SPECIFIED DELAY (UP TO 65S.) 
sCALL: MOV DELAY a DELTIA 


;LOAD DELAY TIME (IN US) 


:BRANCH IF 0 DELAY 

; TURN TIMER ON 

;SAVE R2 ON THE STACK 

;SET RETURN ADDRESS FROM TIMER 


:GO0 TO TIMER & RETURN VIA R2 


sRESTORE R2 


:THIS SUBROUTINE DIVIDES A DOUBLE PRECISION # AND RETURNS THE RESULT 


7TO THE CALLER ON THE STACK. BOTH DIVIDEND & DIVISOR MUST BE POSITIVE. 


LEAST SIGNIFICANT HALF DIVIDEND,-(SP) 
#MOST SIGNIFICANT HALF DIVIDEND,-(SP) 


#DIVISOR,-(SP) 
PC DIVIDE 


(SP)=REMAINDER ON STACK 


2(SP)=QUOTIENT 
THIS SUBROUTINE DESTROYS PREVIOUS CONTENTS OF RO,R1.R2 & RS. 


: MOV 
; MOV 
; MOV 
: JSR 
;RETU 

sNOTE: 

DIVIDE: CLR 


-(SP) 


;SAVE LOC FOR SIGNS 


SEQ 0049 


CZTULAO TMO2 DRIVE FUNCTION TIMER 
CZT P11 07 


ULA. 


012746 


000207 


113765 


000207 


113765 


000262 


000207 


012765 


000207 


07-JUN-78 17: 


000021 


000006 


000006 
000004 


001004 
040000 


000034 


001004 
001005 
002000 


000040 
001004 


001005 
000032 
000300 


000010 
000026 


000010 
000032 
000026 


000010 
000010 


000032 


MACY11 30(1046) 
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DIVIDE SUBROUTINE 


1$: 


2$: 


#17.,-(SP) ;SET ITERATION COUNT 

12¢SP),R1 ;GET LSH DIVIDEND 

10(SP),RO ;GET MSH DIVIDEND 

6(SP),R2 ;GET DIVISOR 

R2 s;NEGATE DIVISOR 

- ;CLEAR ‘C’ BIT IN PSW 

RO sROTATE MSH DIVIDEND 

RO,R3 ;SAVE IN R3 

R2,R3 :SUBTRACT DIVISOR FROM MSH DIVIDEND 
$ :BRANCH IF DIVIDEND > DIVISOR 
R3,RO ;SAVE REMAINDER IN RO 

R1 s;ROTATE LSH DIVIDEND 

- sDECREMENT ITERATION COUNT 
(SP)+ ;POP ITERATION COUNTER 

(SP)+ :POP SIGN CORRECTION 
R1,6(SP) ;PUSH REMAINDER ON STACK 
RO,4(SP) ;PUSH QUOTIENT ONTO STACK 


(SP)+, (SP) 
PC 


-SBTTL ORIVE SUBROUTINES 
oi. CHECK IF DRIVE IS AVAILABLE 


:CALL: MOV DRIVE? ,ORVNUR 
: JSR PC ,DRVAVA 
RETURN: *C* BIT SET IF NOT AVAILABLE 
DRVAVA: MOVB @#DRVNUM, CS2(R5) sLOAD DRIVE # 
BIT #TAP ,DT(RS) ;CHECK IF TAPE UNIT 
BNE 1$ 
JSR PC ,RHINIT 
SEV ;SET *V° TO IND NOT AVAIL 
1$: RTS PC ;RETURN 
s SUBROUTINE TO CHECK " TU45 SLAVE IS AVAILABLE FOR TEST 
;CALL: MOVB DRIVE #,a#D0RVNUM :PASS DRIVE # VIA DRVNUM 
: MOVB SLAVE #,@#SLVNUM ;PASS SLAVE # VIA SLVNUM 
; JSR PC, SLVAVA ;CALL SUBROUTINE 
SLVAVA: MOVB @#ORVNUM,CS2(R5) :LOAD DRIVE # 
MOVB @#SLVNUM,TC(RS) sAND SLAVE # 
dl ee ;BRANCH IF SLAVE PRESENT 
SEV :SET ‘V* TO INDICATE NO SLAVE 
1$: RTS PC 


RHINIT: 


+ SUBROUTINE TO 
; CALL: 


INITIALIZE RH CONTROLLER 


JSR PC, RHINIT 


#40,CS2(R5) 
@#ORVNUM,CS2(R5) 
-(SP) 


@#SLVNUM, (SP) 
(SP)+,TCCRS) 
gaa ie 


;LOAD SLAVE # INTO TC REG 


SEQ 0050 


CZTULAO TMO2 DRIVE FUNCTION TIMER 
CZTULA.P11 78 17:07 


07-JUN- 


005027 
00000 


000012 
177764 
013623 
002000 
012660 
013206 
000032 
000106 


177712 


040000 000012 


000012 


MACY11 30(1046) 
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DRIVE SUBROUTINES 


; SUBROUTINE TO ie DRIVE READY (DRY) 


WAITRDY:CLR 


WAITTIM: .WORD 
1$: TSTB 


3$: 


99$: 
100$: 


0 

DS(R5) 
MI 2$ 
INC WAITTIM 
BNE 1$ 
TYPE,E.TIMEXP 
BR 99% 
BIT #EOT,DS(R5) 
BEQ 3$ 
TYPE ,M.NAM 
TYPE ,M.EOT 
JSR PC, .REWIND 
BVS 99% 
JSR PC WRITE 
INC (R5) 
JSR PC ,WAITRDY 
BR 9 
BIT #ERR,DS(R5) 
BEQ 100$ 
SEV 
RTS PC 


;CLEAR WAIT TIMER 


;WAIT FOR READY TO SET 


; INCREMENT WAIT TIMER 
;BRANCH IF TIME HAS NOT EXPIRED 
;TYPE ‘TIME EXPIRED WAITING FOR RDY' 
; TAKE ERROR EXIT 
;CHECK FOR END OF TAPE 
;BRANCH IF NO EOT 


;TYPE "END OF TAPE’ 
sREWIND SLAVE 


;BRANCH IF — ON REWIND 


“CHECK ERROR EXIT 


; SUBROUTINE TO REWIND A UNIT (ORIVE/SLAVE COMBINATION) 


> CALL 


MOVB 


DRIVE #,@#DRVNUM 


SEQ 0051 


N 4 
CZTULAO TMO2 DRIVE FUNCTION TIMER MACY11 30(1046) 13-JUN-78 13:54 PAGE 52 0052 
SEQ 


CZTULA.P11 07-JUN-78 17:07 DRIVE SUBROUTINES 
2300 ; MOVB SLAVE #,@#SLVNUM 
2301 ; JSR PC, .REWIND 
2302 ;SUBROUTINE RETURNS TO CALLER WITH SELECTED SLAVE AT ‘BOT’, & ‘V* SET IF 
fo ;AN ERROR OCCURS. 
2305 004752 004767 177632 REWIND: JSR PC,RHINIT ; INITIALIZE CONTROLLER 


oe 


CZTULA.P11 


004367 


001374 


012765 
012715 
004767 
000207 


004767 


000206 


CZTULAO TMO2 DRIVE FUNCTION TIMER 
07-JUN-78 17:07 


000002 000012 
040000 000012 


020000 000012 


000130 


005170 


000074 


177777 
000031 
177522 


177702 


000006 


B 5 
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DRIVE SUBROUTINES 


JSR R3,TMCMD 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD RWD 
INC (R5) 
1$: BIT #BOT,DS(R5) 
BNE $ 
BIT #ERR,DS(R5) 
BNE 99% 
BR 1$ 
2$: BIT #PIP,DS(R5) 
BNE 2$ 
BR 100$ 
99$: SEV 
100$: RTS PC 
;SUBROUTINE TO WRITE fo WORD RECORD 
CALL: JSR PCW WRIT 
WRITE: JSR R3, TACMD 
-WORD WTBUF 
~WORD WRDCNT 
-WORD FRACNT 
-WORD WWD 
RTS PC 


; SUBROUTINE TO READ A 256. WORD RECORD. 
L: JSR PC READ 


READ: JSR R35 ,@#TACAD 
-WORD RDBUF 
-WORD WRDCNT 
-WORD FRACNT 
-WORD ROFWD 
RTS PC 


. 
dl 
. 


REVRD: JSR R35, TMCMD 
-WORD RDBUF +256. 
-WORD WRDCNT 
«WORD FRACNT 
-WORD RDREV 
RTS PC 


; SUBROUTINE TO SPACE FORWARD 1 RECORD 
FWOSPC: MOV #-1,FC 


MOV #SPCFWD+1, (RS) 
JSR PC ,WAITROY 
RTS PC 


53 


SEQ 0053 


;GO TO TM COMMAND SUBROUTINE 
;BUS ADDRESS (NOT USED) 
;WORD COUNT (NOT USED) 
:FRAME COUNT (NOT USED) 
;REWIND COMMAND 


:SET ‘GO’ BIT 
BRANCH IF 


; CHECK ERROR BIT 
;BRANCH IF ERROR BIT SET 


"BOT" SET 


;WAIT FOR TAPE MOTION TO STOP 


7:60 TO TM COMMAND SUBROUTINE 
sBUS ADDRESS 

;WORD COUNT 

sFRAME COUNT 

:WRITE FORWARD COMMAND 


sADDRESS OF READ BUFFER 

:2°S COMPLEMENT OF WORD COUNT 
:2°S COMPLEMENT OF FRAME COUNT 
;READ FORWARD COMMAND 


;SUBROUTINE TO INITIATE READ REVERSE COMMAND 
LL: JSR PC ,REVRD 


;ADDRESS OF READ REVERSE BUFFER 
:2°S COMPLEMENT OF WORD COUNT 
:2°S COMPLEMENT OF FRAME COUNT 
;READ REVERSE COMMAND 


;LOAD RECORD COUNT 

;LOAD COMMAND 

s;WAIT FOR READY 
TURN 


; SUBROUTINE TO WRITE A ‘oo AND BACK SPACE OVER THE RECORD. 


WRT.BK: JSR PC WRIT 


WRITE THE RECORD 


CZTULAO TMO2 DRIVE FUNCTION TIMER 
CZTULA.P11 78 


07-JUN- 


005215 
67 


000207 


012365 


17:07 


177506 
177777 
000033 
177466 


177166 


000004 
000002 
000006 


000030 
001144 


177760 
000260 


000030 


177760 
000260 


000030 
177760 
000260 
000030 
177760 
000260 


001144 


000006 


e 
13-JUN-78 13:54 


MACY11 30(1046) PAGE 54 

DRIVE SUBROUTINES 
INC (R5) ;SET *GO’ BIT 
JSR PC ,WAITROY 
BVS 2$ 


MOV #-1,FC(R5S) 
MOV #SPCREV+1,(R5) 
JSR —_* 


1$: JSR PC DELAY 
2$: RTS PC 


; SUBROUTINE TO LOAD A COMMAND 
;CALL: JSR R3,TACAD 


;LOAD RECORD COUNT 
;LOAD COMMAND 


;WAIT FOR TAPE MOTION TO STOP 


: ~WORD BUS ADDRESS 

: -WORD WORD COUNT (2°S COMPLEMENT) 
: ~-WORD FRAME COUNT (2°S COMPLEMENT) 
; -WORD COMMAND 


(R3)+,BACR5S) ;LOAD BUS ADDRESS 
MOV (R3)+,WCC(RS) ;LOAD WORD COUNT 
MOV (R3)+,FCC(RS) ;LOAD FRAME COUNT 
(R3)+,(R5) :LOAD COMMAND 


MOV 

RTS R3 ; RETURN 

; SUBROUTINE TO PRINT TU45 SERIAL NUMBER 
SR PC, SNPT 


SNPT: MOV SNCR5) RS 
MOV #ODIGITS,R1 
SWAB R3 
ROR R3 
ROR R3 
ROR R3 
ROR R3 sGET FIRST DIGIT 
BIC #177760,R3 
BIS 60,R5 
MOVB R3,(R1)+ FILL FIRST DIGIT 
MOV SN(RS) RS 
SWAB R3 
BIC #177760,R3 
BIS #260 ,R3 
MOVB R3,(R1)+ ;GET SECOND DIGIT 
MOV SNC(R5),R3 
ROR 
ROR R53 
ROR R3 
ROR R53 
BIC 1177760, R3 
BIS #260,R3 
MOVB R3,(R1)+ ;GET THIRD DIGIT 
MOV SN(RS) .R3 
BIC 1177760.83 
BIS #260,R5 
MOVB R3,(R1)+ ;GET FOURTH DIGIT 
CLR (R1) 
TYPE ,ODIGITS 


; TYPE SERIAL NUMBER 
RETURN 


SEQ 0054 


CZTULAO TMO2 DRIVE he AEE TIMER 
CZTULA.P11 


07-JUN-78 1 


012706 


67 
013737 
013705 
000261 
005715 
1030035 


000004 
000727 
012737 


105037 


042701 
112761 


7:07 


000600 


001010 


013245 
003302 


001123 
001154 
000004 


012773 
175404 
001264 
000101 
173364 
001154 
000004 
177777 


000015 
000054 


177770 
177777 | =001154 


000004 
000006 


001010 


000004 


D 5 
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DRIVE SUBROUTINES 


; PROGRAM INITIALIZATION . 
INIT: Tk #STKPTR,SP ;SET STACK PTR 


;CLEAR PROGRAM FLAG 


CLRB av 1TCNnt ; CLEAR oT. COUNT 
CLRB a#TSTNUM ;SET TEST # 0 

CLRB @#ERFLG ;CLEAR ERROR FLAG 

CLRB LG ; CLEAR ASK FLAG 


ASF 
MOV #ERRVEC +2 ,A#ERRVEC 


MOV #RTI ,Q#ERRVEC+2 ;CHECK IF "LP*® IS AVAILABLE 
a# INBUF 


2$: 
TYPE ,CRLF 
TYPE ,.M.NAM s TYPE TITLE 
TYPE,1.REG SASK USER TO TYPE CONT BASE ADRS 
JSR PC,. INPUT sGET USER INPUT 

4$: JSR PC,CNVTAO ;CONVERT ASCII TO OCTAL 
MOV @#0CTALO,@#TMBASE * SET NEW ADDRESS 

5$: MOV @*TMBASE ,R5 

:ROUTINE TO CHECK IF CONTROLLER (RH11) IS AVAILAABLE 
SEC 7SET ‘C°’ IN PSW 
TST (R5) > BRANCH IF CONTROLLER AVAIL 
BCC 6$ 
nt 
BR NIT 
#ERRTRP ,QAFERRVEC :SET ERROR TRAP VECTOR 


6$: MOV 
sROUTINE TO GET TMO2 — USER DESIRES TO TEST 


DRIVES: CLRB a#ERFL ;CLEAR ERROR FLAG 
MOV #ORVIBL RI ;MARK ALL DRIVES AS NOT TO 
MOV #4,R0 :BE TESTED. A ‘O° INDICATES 
1$: CLR (Ri)¢ ; THAT A DRIVE IS NOT TO BE 
DEC RO ; TESTED 
BNE 1$ 
TYPE, 1 .ORVS 
JSR PC,. INPUT ;GET USER INPUT 
MOV #INBUF RO 
CMPB #°A, (RO) sAN °A* SPECIFIES ALL 


BNE 3$ ;DRIVES TO BE TESTED 


MOVB SP ,PRGFLG ;SET FLAG TO IND ALL DRIVES 

MOV #DRVTBL,R1 aT ALL DRIVES TO BE TESTED 

MOV #4 ,RO -1° INDICATES THAT A DRIVE 
2$: MOV #-1,(R1)+ ‘fs TO BE TESTED 

DEC RO 

BNE 2$ 

BR CHKDRV :GO CHECK DRIVE AVAILABILITY 


;GET USER SELECTED DRIVES AND MARK EACH DRIVE SELECTED TO BE TESTED 
3$: CMPB (RO) 


cHPB (RO). ; :CHECK IF ‘COMMA’ 

TSTB = (RO) + “STEP PTR PAST ‘COMMA’ 
4$: MOVB (RO)+,R1 

BIC #177770,R1 

MOVB #1, DRVTBL(R1) 


SEQ 0055 


CZTU 


005614 
005616 


000240 
000761 


005000 


001664 


105037 


005300 


001154 
000010 
001004 
004532 
013312 
001132 

4 
001154 
001123 
001124 


001123 
001164 
000040 


001164 
001154 


000010 
000010 


001124 


172776 
001132 
013035 

175102 
001264 
000101 


001124 


177777 


Pha TMO2 DRIVE FUNCTION TIMER 
A.P11 07-JUN-78 17:07 


013344 


013054 


MACY11 30(1046) 


E 
13-JUN-78 


PROGRAM INITIALIZATION 


NOP 
BR 3$ 

sASCERTAIN THAT 

CHKDRV: CLR 

1$: TSTB DRVTBL (RO) 
BNE 3$ 

23: INC RO 
CMPB #8. ,RO 
BNE 1$ 
BR 4$ 

3$: MOVB RO, a@#DRVNUM 
JSR PC ,@#DRVAVA 
BVC % 
TYPE ,E .NORV ‘ 
MOVB DIGTAB(RO) ,a#E .NAVA 
TYPE .E .NAVA 
MOVB SP ,@#ERFLG 
CLRB DRVTBL (RO) 
BR 2s 

4$: TSTB @#ERFLG 
BEQ SLAVES 
TSTB @#PRGFLG 
BEQ DRIVES 


sROUTINE TO GET 
SLAVES: CLRB 
MOV 


1$: 


23: 
3$: 


4$: 


5$: 
6$: 





#SLVTBL RI 
32., 

CLR (R1)+ 
DEC RO 
BNE 1$ 
CLR RO 
MOV #SLVTBL RI 
TSTB DRVTBL (RO) 
BNE &§ 
ADD #8. ,R1 
INC RO 
CMPB #8. ,RO 
BNE 2$ 
BR CHKSLV 
TSTB @#PRGFLG 
BNE 5$ 
MOVB RO, 


DRVNURM 
MOVB DIGTAB(RO) ,a#1.DRV 
TYPE,1.SLVS 


JSR PC,. INPUT 
MOV #INBUF ,R3 
CMPB #°A, (RO) 
BNE 7$ 

MOVB SP, a#PRGFLG 
MOV #SLVTBL,R1 
MOV #32.,R0 
MOV #-1,(R1)+ 
DEC RO 


5 
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_ (TMO2'S) ee ARE AVAILABLE 


A 0/-1 INDICATES THAT THE 
:DRIVE 1S NOT/IS TO BE TESTED 


; CHECK IF AVAILABLE 
;*V° BIT SET INDICATES NOT AVAIL 


;SET DRIVE # IN MESSAGE 
;SET ‘ERROR’ FLAG 

sMARK DRIVE UNAVAILABLE 

; CHECK NEXT DRIVE 

:GO GET SLAVES IF NO ERROR 


ASK USER TO RETYPE DRIVES IF 


;"ALL* NOT SPECIFIED 


asa ty (TU45'S) USER DESIRES TO TEST 
afERFLG :CLE 


AR *ERROR’ FLAG 
sMARK ALL SLAVES (64.) AS NOT 
:T0 BE TESTED.A 0 INDICATES THAT 
A DRIVE’S SLAVE IS NOT TO BE 
; TESTED 


;RO = DRIVE # FOR SLAVES 
;R1 POINTS TO DRIVE'S SLAVE 


RWISE 
:STEP SLAVE PTR TO NEXT DRIVE'S 
sSLAVES AND INCREMENT DRIVE # 
sCHECK ALL DRIVES 
sAND WHEN ALL DRIVES CHECKED 
:GO CHECK SLAVE AVAILABILITY 


aeeare IF USER SELECTED ALL 


“GET DRIVE # 
“PREPARE USER ACTION MESSAGE 


;GET USER INPUT 

;SET PTR TO USER INP 

SBRANCH IF USER DOES” NOT WANT 
;"ALL* SLAVES 
:SET "ALL" INDICATOR 
;MARK ALL SLAVES FOR ALL 
:DRIVES AS TO BE TESTED 


CZTULAO TMO2 DRIVE FUNCTION TIMER 
CZTULA.P11 78 17:07 


07-JUN- 


001374 
105737 
001016 


122713 


000762 


005000 


012737 


105037 
105037 


001124 
000015 
000054 


177770 
177777 


001164 
001154 


000010 
000010 


~ 000010 


001132 
001132 
013326 
001123 


001123 
001124 
003302 


001004 
001005 


013334 
013344 


000004 


MACY11 30(1046) 


PROGRAM INITIALIZATION 


7$: 


sASCERTAIN THAT 


ee 

13-JUN-78 13:54 PAGE 57 
6$ 
a#PRGFLG ;BRANCH IF ALL WAS SELECTED 
CHKSLV 
CR, (R3) :GET USER SELECTED SLAVES FOR 
(R3) A", “STEP PTR PAST ‘COMMA’ 

(R3)+ 

(R3)+,R4 :AND MARK SELECED SLAVE 


#177770,R4 y 
R1R4 
#-1,(R4) 

7$ 


;AS TO BE TESTED 


— (TU45°S) SELECTED ARE AVAILABLE 


CHKSLV: CLR ;RO WILL CONTAIN oy DRIVE # 
CLR R1 ;AND R1 THE SLAVE # 
MOV #SLVTBL ,R2 ;SET PTR TO SLAVE TABLE 
1$: TSTB DRVTBL (RO) :BRANCH IF DRIVE SELECTED 
BNE 3$ ;& AVAILABLE FOR TEST 
2$: INC RO ; INCREMENT DRIVE # 
ADD #8. ,R2 ;STEP SLAVE PTR TO NEXT DRIVE'S 
CMP #8. ,RO :SLAVES. BRANCH TO 1$ IF NOT ALL 
BNE 1$ sDRIVES CHECKED OTHERWISE EXIT 
BR 7$ 
3$: CLR R1 ;SET SLAVE # 0 
4$: TSTB (R2) ;BRANCH IF DRIVE‘S SLAVE IS SEL- 
BNE 6$ sECTED FOR TEST 
5$: INC R1 ; INCREMENT SLAVE # 
INC R2 ;STEP PTR TO NEXT SLAVE 
CMP #8.,R1 :G0 TO 4$ IF ALL SLAVES NOT 
BNE 4% ; CHECKED 
BR 2s ;OTHERWISE GO TO 2$ ABOVE 
6$: MOVB RO, @#0RVNUM PASS DRIVE & SLAVE # 
MOVE R1,@¢SLVNUM 
JSR PC a#SLVAVA ¢ AND CHECK IF AVAILABLE 
BvC 5$ *vV' BIT SET ON RETURN IND- 
MOVB DIGTAB(RO) ,@#E .DRV SICATES ERROR. PREPARE ERROR 
MOVB DIGTAB(R1) ,@#E .NAVA ; MESSAGE 
TYPE ,E .NSLV 
MOVB SP ,a#ERFLG ;SET ERROR INDICATOR 
CLRB (R2) ;CLEAR SLAVE TABLE ENTRY 
BR 5$ ;GET NEXT SLAVE 
7$: TSTB @#ERFLG ;BRANCH IF NO ERROR 
BEQ 100$ 
TSTB @#PRGFLG ;BRANCH IF NOT ‘ALL* 
BEQ SLAVES ASK USER TO RETYPE SLAVES 
100$: MOV #ERRTRP ,A#ERRVEC 


; SCAN oe evil — FOR DRIVE/SLAVE COMBINATION TO TEST 


CLRB 


;SET DRIVE AND SLAVE # 0 
@4SLVNUM 


SEQ 0057 


CZTULAO TMO2 DRIVE FUNCTION TIMER 
CZTULA.P11 8 


006302 
006310 


006314 
006320 


07-JUN-7 


012737 
105037 


113700 
113701 


17:07 
001164 001006 
001125 


001004 
001005 


MACY11 30(1046) 


G 5 
13-JUN-78 13:54 


PROGRAM INITIALIZATION 


BEGIN: 


MOV 
CLRB 


MOVB 
MOVB 


#SLVTBL ,@#SLVPIR 
@#UNTFND 


@#DRVNUM,RO 
@#SLVNUM,R1 


PAGE 58 
;SET PTR TO SLAVE TABLE 
;CLEAR ‘UNIT FOUND’ IND. 


;GET DRIVE # 
;AND SLAVE # 


w\ 


SEQ 0058 


CZTULAO — DRIVE FUNCTION TIMER 
P11 78 17:07 


CZTULA.P 07-JUN- 


006402 
006406 


013702 


000137 


105712 
001007 
005202 
005201 
122701 
001371 
005001 
000761 


110637 
110037 


001006 
001154 


000010 
000010 
012266 


000010 


001125 
001004 


MACY11 30(1046) 
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PROGRAM INITIALIZATION 


18: 


2$: 


3$: 


4$: 


@#SLVPTR,R2 
DRVTBL (RO) 


SP ,@#UNTFND 
RO, a#DRVNUM 


5 
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59 


;GET SLAVE PTR 
;BRANCH IF DRIVE AVAIL TO TEST 


;CLEAR SLAVE # 

;AND STEP PTR TO NEXT DRIVE’S 
;SLAVES AND INCREMENT DRIVE # 
sEXIT TEST IF ALL DRIVES 

; CHECKED OTHERWISE CONTINUE 
;SCAN FOR NEXT ‘UNIT’ 


;BRANCH IF SLAVE ON DRIVE IS 
;AVAILABLE THERWISE STEP 
;PTR TO NEXT SLAVE 

; INCREMENT SLAVE # 


;UNTIL ALL SLAVES CHECKED 
;WHEN ALL _ CHECKED 
;SET SLAVE # 0 

;AND CONTINUE SCAN 


; INDICATE THAT A ‘UNIT’ IS FOUND 
:SET DRIVE 3 


SEQ 0059 


CZTULAO TMO2 DRIVE FUNCTION TIMER 
CZTULA.P11 


07-JUN-78 


110137 
010237 


105737 
001044 
112767 


105937 
04 


001362 
111337 


052737 
000004 


17:07 


001005 
001006 


001130 
000001 
001124 
013114 
174454 
001264 
000060 
000061 


001124 


001127 


000060 
000061 
001127 


000012 
00406C 
001124 


012314 


172472 


177560 


014054 


014071 


001002 


MACY11 30(1046) 
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PROGRAM INITIALIZATION 


5$: 


6$: 


7$: 


TYPHDR: 


1§: 


MOVB R1,@#SLVNUM 
MOV R2,a#SLVPTR 
TSTB @#ASFLG 

BNE 7$ 

MOVB #1, ASFLG 


@#PRGFLG 


CLRB 
ph od 1.SKEW 
J 


PC,. INPUT 


5 
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;SET SLAVE # 
;SAVE SLAVE PTR 


;CLEAR PROGRAM INDICATOR 
:ASK USER IF HE WANTS TO RUN SKEW TESTS 
‘odd USER INPUT 


#INBUF , R3 ;GET REPL 
Ae #'0,(R3) ;BRACH IF "NO’ (0) 
CMPB #'1,(R3) ;CHECK IF ‘YES’ (1) 
BNE sNEITHER SO ASK AGAIN 
MOVB (R3),@#PRGFLG ;SET INDICATOR 
BR 7$ 

@A#NRZFLG ;CLEAR WRZ INDICATOR 


CLRB 
TYPE ,1.NRZ 
JSR 


PC, . INPUT 


;ASK USER IF DRIVE ‘NRZ* ONLY 
om USER INPUT 


v #INBUF ,R3 :GET REPL 
cmPB sé’, (R’3) > BRANCH iF "NO" (0) 
BEQ 7$ 
CMPBsa#1, (R33) sCHECK IF "YES* (1) 
BNE “ASK AGAIN IF NEITHER 
MOVB (R3),@#NRZFLG :SET INDICATOR 
BIS #100, a#TKS :SET KEYBOARD IE BIT 
TYPE ,.L.HDR1 : 
MOVE  DIGTAB(RO),a#L.ORV :SET DRIVE # 
MOVB DIGTAB(R1),a#L.SLV “AND SLAVE # 
mOVB #°9,a#L.CHAN “GET SLAVES CHANNEL TYPE 
BIT #CH7,DT(RS) 
BEQ 1$ 
MOVB #°7,@#L.CHAN :SET 7 CHANNEL 
TYPE ,.L.HD 
SR PC RHINIT : INIT RH 
JSR PC, SNPT :GO PRINT SERIAL NUMBER 


TYPE ,L .HORS 
MOV 


a ao :SET “SCOPE® ADDRESS FOR FIRST TEST 
ADD #FC,RO :RO CONTAINS ADDRESS OF FC REG 

MOV R5,R1 

ADD #0S,R1 ;R1 CONTAINS ADDRESS OF DS REG 

MOV #TIMER,RS ;SET JUMP ADDRESS TO TIMER 

TSTB @#PRGFLG ;BRANCH IF NOT SKEW TESTS 

BEQ TSTO01 

JMP a#vSk 


:TEST 001 = WRITE FROM 
;THIS TEST WILL MEASURE ACCELERATION DELAY REQUIRED TO 
;MOVE THE TAPE APPROXIMATELY SEVEN (7) INCHES FORWARD 
;FROM DEAD STOP BEFORE STARTING TO TRANSFER DATA. 


EWTST 
~SBTTL START BF ae 


SEQ 0060 


CZTULAO TMO2 DRIVE FUNCTION TIMER 


CZTULA.P11 


112737 


2 
0001635 


005215 
005765 


112737 
004767 
005215 


005710 


004767 
010702 
032711 


07-JUN-78 17:07 


000001 
006724 
176042 
176116 
175046 
000032 
004060 
175704 
175146 


000002 
176044 
007002 
174770 
000032 
004060 
175626 


175070 


000003 
175766 


040000 


174700 
000020 


001122 


001122 


001122 


MACY11 het 


START OF TESTS 


; THIS Me MEASURES TIME FROM ‘GO'=1 TO 
OVB af ,@#TSTNUM 


TSTO01: 


18: 


2$: 


99$: 
100$: 


H 
SCOPE 


J 
13-JUN-78 


1$,R2 
PC, .REWIND 
99$ 
PC,WRITE 
PC,TIMON 
(R5) 
TC(R5S) 
2$ 

TIMER (R5) 
PC ,WAITROY 
99% 
PC,TIMOK 
100$ 


sTEST 002 - WRITE START 
THIS TST ay TIME FROM 'GO’=1 TO ‘ACCL’=0. 


TSTO02: #2, aaTSTNUM 
JSR PC WRITE 
MOV 1$,R2 
JSR PC, TIMON 
INC (R5) 

18: TST TCC(RS) 
BPL 2% 

JMP TIMER(R3) 
2s: JSR PC ,WAITRDY 
BVS 99$ 

JSR PC, TIMOK 
BR 100$ 
99$: HLT 
100$: SCOPE 





TEST 003- WRITE SHUTDOWN 
; THIS TEST aaa gl Ms ag "FC REG'=0 TO “SWON*=1. 


TSTO03: 


1$: 


2$: 


3$: 


PC WRITE 
(R5) 

(RO) 
2$ 
WERR, (R1) 
99% 

1$ 


PC, TIMON 
PC,R 
#SDWN, (R1) 


61 


"ACCL‘'=0. 


;SET TEST # 
;SET RETURN PC FROM TIMER 


;REWIND SLAVE 

;BRANCH IF ERROR ON REWIND 
;GO SETUP WRITE COMMAND 

; TURN TIMER ON 

;SET ‘GO’ BIT 


;BRANCH WHEN ‘ACCL‘=0 
;GO TO TIMER & RETURN VIA R2 
;WAIT FOR COMMAND TO FINISH 


;BRANCH IF ERROR 
GO CHECK TIME 


:SET TEST # 


2 
S INITIATE WRITE COMMAND 
;SET RETURN PC FROM TIMER 


;SET *GO* BIT 

;BRANCH WHEN ‘ACCL*=0 

:GO0 TO TIMER & RETURN VIA R2 
;WAIT FOR READY 

;BRANCH IF ERROR 

:GO CHECK TIME RECORDED 
sEXIT VIA SCOPE 


sREPORT ERROR 


SET TEST#S 
s INITIATE WRITE COMMAND 


= SET *GO* BIT 
sBRANCH WHEN WRITING FINISHED 
sMONITOR ERROR BIT 


; TURN TIMER ON 
;LOAD RETURN PC FROM TIMER 
;BRANCH WHEN DS <SDWN> SETS 


SEQ 0061 


CZTUL 


- 


007076 
007100 


007104 


007160 


001002 
000165 


104000 


112737 
004767 
005215 


005710 


26 
000772 
032711 


004767 
012702 

67 
005215 
005765 


100002 
000163 


004060 
175536 
175000 


000004 
175676 


040000 


000020 
040000 


174572 
000020 
004060 
175430 
174672 


000005 
17550€ 


175600 
007264 
174506 
000032 


004060 


cere TMO2 DRIVE FUNCTION TIMER 
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001122 


001122 


K 

MACY11 30(1046) 13-JUN-78 
START OF TESTS 

BNE 4$ 

JMP TIMER(R3) 
4$: JSR PC ,WAITRDY 

BVS 99$ 

JSR PC,TIMOK 

BR 100$ 
99$: HLT 
100$: SCOPE 


sTEST 004 - WRITE SETTLEDOWN 


5 
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;GO TO TIMER & RETURN VIA R2 
;WAIT FOR READY 

;GO CHECK TIME RECORDED 
;REPORT ERROR 


;THIS TEST MEASURES TIME Ba "SWON’=1 TO ‘SWON’=0. 


TSTO04: MOVB #4 ,a#TSIN 
JSR P 


INC (R5) 

1$: TST (RO) 
BEQ 2$ 
BIT #ERR, (R1) 
BNE 99$ 
BR 1$ 

2$: BIT #SDWN, (R1) 
BNE 3$ 
BIT #ERR, (R1) 
BNE 99$ 

BR 2$ 

33: 
JSR PC, TIMON 
MOV PC ,R2 
BIT #SOWN, (R1) 
BEQ $ 
JMP TIMERCR3) 

5$: JSR PC .WAITRDY 
BVS Got 
JSR PC, TIMOK 
BR 100$ 

9953: HLT 

100$: SCOPE 


3; TEST 005 - READ FROM BOT 
; THIS ae MEASURES TIME FROM ‘GO’=1 TO 
MOVB 5 .@#TSTNUM 


TSTO0S: 
JSR PC. .REWIND 
BVS 99$ 
JSR PC, READ 
MOV #1$,R2 
JSR PC, TIMON 
INC cR5) 

1$: TST TC(RS) 
BPL 


JMP TIMER(RS) 


;SET °GO’ BIT 
;BRANCH WHEN WRITING FINISHED 
; CHECK ERROR BIT 


;WAIT FOR ASSERTION OF ‘*SDWN’ 
sMONITOR ERROR BIT 


: TURN TIMER ON 

;SET RETURN PC FROM TIMER 
;BRANCH WHEN SWDN CLEARS 

;GO0 TO TIMER & RETURN VIA R2 


sWAIT FOR READY 


*ACCL*=0. 

;SET TEST #5 

:REWIND SLAVE 

>BRANCH IF ERROR ON REWIND 


;SET RETURN PC FROM TIMER 
; TURN TIMER ON 
;SET *GO" BIT 
;BRANCH WHEN ‘ACCL* RESETS 


:GO TO TIMER & RETURN VIA R2 


SEQ 0062 


CZTULAO TMO2 DRIVE FUNCTION TIMER 
CZTULA.P11 


007276 
007302 
007304 
007310 


007312 
007314 


007374 


007376 
007400 


07-JUN-78 


004767 
3 


000401 


104400 
104000 


112737 
004767 
102422 
004767 
012702 
004767 
005215 
005765 
100002 
000165 
004767 
102403 
004767 
000401 


104400 
104000 


112737 


005215 
022710 


17:07 


175344 
174606 


000006 
175576 


175514 
007350 
174422 
000032 
004060 
175260 
174522 


000007 
175512 


175430 


000400 
040000 


174322 
000020 
004060 
175160 
174422 


001122 


001122 


MACY11 albert 
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START OF TESTS 


2$: 


99$: 
100$: 


JSR PC ,WAITRDY ;WAIT FOR READY 


BVS 99$ ;BRANCH IF ERROR 

JSR PC, TIMOK ; CHECK RECORDED TIME 
BR 100$ 

HLT 

SCOPE 


sTEST 006 - READ START 





sTHIS TEST MEASURES TIME FROM ‘'GO'=1 TO ‘ACCL‘'=0. 
TST006: MOVB #6,a#TSTNUM SET TEST #6 
JSR PC ,WRT.BK “WRITE A RECORD @ BACK SPACE 
BVS 99$ 
JSR PC READ 
MOV #1$,R :SET RETURN PC FROM TIMER 
JSR PC, TIMON ; TURN TIMER ON 
INC (R5) ;SET °GO’ BIT 
1$: eh ai :BRANCH WHEN "ACCL’ RESETS 
JMP TIMER(R3) :G0 TO TIMER & RETURN VIA R2 
2s: JSR PC ,WAITRDY 
BVS .§ 99% 
JSR PC, TIMOK 
BR 1008 _ . 
99$: HLT 
100$: SCOPE 
sTEST 007 - READ SHUTDOWN 
:THIS TEST MEASURES TIME FROM "FC REG'=FRAME COUNT TO ‘SWDN‘=1. 
TST007: MOVB #7 ,a@#TSTNUM sSET TEST #7 
JSR PC WRT .BK sWRITE A RECORD & BACK SPACE 
BVS 99$ > BRANCH IF ERROR 
JSR PC READ 
INC CRS) sSET °GO* BIT 
1$: cmp #-FRACNT, (RO) sWAIT FOR FRAME COUNT TO 
BEQ 2$ s= # OF FRAMES WRITTEN 
BIT #ERR, (R11) sMONITOR ERROR BIT 
BNE 99$ 
BR 1$ 
2$: 
JSR PC,TIMON s TURN TIMER ON 
MOV PC,R2 :SET RETURN PC FROM TIMER 
a! #SDWN, (R1) sBRANCH WHEN SDWN SETS 
JMP TIMER(R3) :GO TO TIMER & RETURN VIA R2 
3$: JSR PC ,WAITRDY 


JSR PC, TIMOK 
100$ 


SEQ 0063 


Stel a DRIVE FUNCTION TIMER 


TULA.P 


007476 
007500 


104400 
104000 


112737 
012702 
004767 
102436 
004767 
005215 


105711 
1 4 


012702 
004 


07-JUN-78 17:07 


000010 001122 
007566 


175406 
175324 


040000 


000020 
040000 


174202 
000020 


004060 
175040 
174302 


000011 
007666 
175174 
175000 
174500 
175210 
174104 
000032 


004060 


000012 


001122 


Mm 5 
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START OF TESTS 


99$: HLT 
100$: SCOPE 


:TEST 010 = READ SETTLEDOWN 
:THIS TEST MEASURES TIME FROM ‘SWON'=1 TO ‘SWDN'=0. 
TSTO10: MOVB #10,a¢TSTNUM ;SET TEST #10 
MOV #4$,R2 :SET RETURN PC FROM TIMER 
JSR — 


;REPORT ERROR 


;WRITE A RECORD & BACK SPACE 


BVS 
JSR PC ,READ 
INC (R5) ;SET °GO’ BIT 
1$: TSTB (R1) :WAIT FOR READY 
BMI 2$ ;BRANCH WHEN SET 
BIT #WERR, (R1) : CHECK ERROR BIT 
BNE 99$ 
BR 1$ 
2s: aM ial :WAIT FOR ASSERTION OF ‘SDWN‘ 
BIT #ERR, (R11) :MONITOR ERROR BIT - 
BNE 99$ 
BR 2$ 
3$: 
JSR PC, TIMON : TURN TIMER ON 
4$: st #SOWUN,DS(R5) “WAIT FOR NEGATION OF SDUN 
JAP TIMER(R3) :GO0 TO TIMER & RETURN VIA R2 
5$: JSR PC ,WAITRDY 
BVS oot 
JSR PC, TIMOK 
BR 100$ 
998: HLT 
100$: SCOPE 


sTEST O11-READ REVERSE START 
sTHIS TEST MEASURES TIME a "GO"=1 TO ‘ACCL*=0. 


TSTO11: MOVB #11 ,aaTST 
MOV ;SET RETURN PC FROM TIMER 
JSR PC,WRITE SWRITE A RECORD 


INC cR5) “SET 'GO' BIT 
JSR PC WAITRDY 
BVS 99 


;WAIT FOR TAPE MOTION TO STOP 


; TURN TIMER ON 
;SET *GO" BIT 


;BRANCH WHEN ‘ACCL* = 0 
:GO TO TIMER & RETURN VIA Re 


a 
JMP TIMER (RS) 


SEQ 0064 


CZTULAO TMO2 DRIVE FUNCTION TIMER 
CZTULA.P11 78 17:07 


007700 
007704 
007706 
007712 


007714 
007716 


07-JUN- 


004767 
3 


000401 


104400 
104000 


112737 
AE 


012702 
7 


005215 
105711 
1 & 


174742 
174204 


000012 
007776 
175076 
174702 


175116 


000400 
040000 


173772 
000020 


004060 
174632 
174074 


000013 
010122 
174766 
174572 


175006 


040000 


001122 


001122 


MACY11 30(1046) 


START OF TESTS 


2$: 


1008: 


TEST 012-READ REVERSE SHUTDOWN 
; THIS ig ae | 


TSTOl2: 


3$: 


4$: 


99$: 
100$: 


4A 95 O13-READ REVERSE SETTLEDOWN 
THIS TEST MEASURES TI 
TST013: MOVB #1 


JSR PC ,WAITRDY 
JSR PC, TIMOK 
100$ 


HLT 
SCOPE 


#12 ,a#TSTNU 
ROV #3$,R2 
JSR PC,WRITE 
(R5) 
JSR PC ,WAITROY 
JSR PC ,REVRD 
(R5) 


CMP #-FRACNT, (RO) 

BIT #ERR, (R1) 
99$ 

BR 1$ 

JSR PC, TIMON 

BIT #SDUN, (RT) 

JMP TIMER(R3) 

JSR PC ,WAITRDY 
99$ 

JSR PC, TIMOK 
100$ 


MOV ° 

JSR PC WRITE 
(R5) 

JSR PC ,WAITROY 
99% 

JSR PC ,REVRD 
(R5) 


TSTB (R1) 
2$ 

BIT #ERR,(R1) 
99$ 

BR 1$ 


N 5 
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;BRANCH IF ERROR 


TIME FROM ‘FC REG’ = FRAME COUNT TO ‘SDUN*=1. 


;SET RETURN PC FROM TIMER 


SWRITE A RECORD 
;SET °GO’ BIT 


SET ‘GO’ BIT 


;BRANCH WHEN FRAME COUNT 
;= # OF RECORD WRITTEN 
;MONITOR ERROR BIT IN ‘DS’ REG 


; TURN TIMER ON 
;BRANCH WHEN SDWN SETS 


:G0 TO TIMER & RETURN VIA R2 
;WAIT FOR READY 


ME FROM ‘SDWN'=1 TO ‘SDWN‘=0. 
TSTNUM 


:SET RETURN PC FROM TIMER 


SWRITE A RECORD 
:SET ‘GO* BIT 


:SET ‘GO* BIT 


sBRANCH WHEN 
sREADY SETS 


SEQ 0065 


CZTULAO TMO2 DRIVE FUNCTION TIMER 
CZTULA.P11 17:07 


aFS 


SrA fr 


010146 
010150 
010152 


010154 


010166 
010170 


010170 


01 
010210 
010214 


010216 


010222 
010226 


010254 
010256 
010260 


07-JUN-78 


032711 
04 


112737 
012702 
004767 
005215 
004767 
102420 


004767 
004767 
005215 


005765 
100002 
000163 


004767 
102403 
004767 


000401 


104400 
104000 


000020 
040000 


173646 
000020 


004060 
174506 
173750 


174572 


000014 
010230 
174626 
174432 


174646 
173542 


000032 


004060 


174400 
173642 


001122 


MACY11 30(1046) 


START OF TESTS 


23: 


3$: 
4$: 


5$: 


99$: 


100$: 
sREWIND 
A: 


99$: 
100$: 


HLT 
SCOPE 
DRIVE 


B 
13-JUN-78 


#SDWN, (R1) 
3$ 
WERR,(R1) 
99$ 

2$ 
PC,TIMON 
#SDWN, (R1) 
5$ 

TIMER (R3) 
PC ,WAITRDY 
99$ 

PC, TIMOK 
100$ 


PC, .REWIND 
99% 

100$ 

A 


6 
13:54 


PAGE 66 
SEQ 0066 


; TURN TIMER ON 
;BRANCH WHEN SWDN = 0 


;GO TO TIMER & RETURN VIA R2 
;WAIT FOR READY 


sREWIND SLAVE 
:BRANCH IF ERROR ON REWIND 


;TEST 014-TURN AROUND DELAY (FORWARD-REVERSE) 
; THIS ge MEASURES TIME FROM ‘GO"=1 (READ REVERSE) TO ‘ACCL°=0 
MOVB a 


TSTO14: 


18: 


2$: 


3$: 


99$: 


100$: 


HLT 
SCOPE 


2$,R2 

PC WRITE 
(R5) 

PC ,WAITROY 
99$ 


PC ,REVRO 
PC, TIMON 


cR5) 
TC(R5) 
TIMER(R3) 
PC, WAITRDY 
99$ 

PC, TIMOK 
100$ 


;SET RETURN PC FROM TIMER 
SWRITE A RECORD 
;SET *GO* BIT 


;READ THE RECORD (REVERSE) 
; TURN TIMER ON 
:SET *GO° BIT 


;WAIT FOR “ACCL* = 0 


:GO TO TIMER & RETURN VIA R2 


;TEST 015= TURN AROUND DELAY (REVERSE-FORWARD) 


CZTULAO TMO2 DRIVE FUNCTION TIMER 
CZTULA.P11 78 17:07 


010310 
010314 


010316 
010322 


010324 


010376 


07-JUN- 


112737 
012702 
004767 


005215 


004767 
102420 


005215 
005765 
100002 
000163 


004767 
102403 


004767 


000401 
104400 
104000 


112737 
012702 


112737 
012702 


000015 
010336 
174534 
174340 
174554 


174324 


174522 
173434 
000032 
004060 
174272 
173534 


000016 
010434 
174426 
174232 
173732 


174442 
173336 


004060 
174176 
173440 


000017 
010544 


001122 


001122 


MACY11 30(1046) 


START OF TESTS 
; THIS Me ate aint or "GO'=1 (READ) TO ‘ACCL*=0. 


TSTO15: 


1$: 
2$: 
3$: 


99$: 
100$: 


TST 


1$: 


2$: 


99$: 
100$: 


#15 ,a#TST 
#2$,R 

JSR PC, WRITE 
(R5) 

JSR PC ,WAITRDY 
99$ 

JSR PC,REVRD 
(R5) 


JSR PC ,WAITRDY 
99$ 


JSR PC READ 

JSR PC, TIMON 
(R5) 

TST TC(R5) 
3$ 

JMP TIMER(R3) 

JSR PC ,WAITRDY 
99% 

JSR PC, TIMOK 
100$ 


sTEST 016-GAP SIZE (STOP HALF) 
016: MOVB #16, a#TSTNUM 


#13,R 

JSR PC,WRITE 
(R5) 

JSR PC ,WAITROY 
99% 

JSR PC DELAY 


JSR PC ,REVRD 
JSR PC, TIMON 


INC (R5) 
TST (RO) 
BNE 


2s 

JMP TIMER(R3) 

JSR PC ,WAITROY 
99% 

JSR PC, TIMOK 
100$ 


HLT 
SCOPE 


TEST _017-GAP SIZE (START HALF) 
001122 TST017: MOVB #17,a#TSTNUM 


MOV #1$,R2 


C 6 
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;SET RETURN —_— TIMER 


“WAIT FOR READY 


;READ A RECORD IN THE 
;SET ‘GO’ BIT 


;READ RECORD FORWARD 
; TURN TIMER ON 
;SET °GO’ BIT 


;WAIT FOR *ACCL*® = 0 
;GO0 TO TIMER & RETURN VIA R2 


sSET RETURN PC FROM TIMER 
sWRITE A RECORD 
:SET ‘GO°* BIT 


sDELAY 350 MS 

;READ REVERSE RECORD 
; TURN TIMER ON 

SET °GO* BIT 


sWAIT FOR FRAME COUNT > 0 
:GO TO TIMER & RETURN VIA R2 
sWAIT FOR READY BIT TO SET 
sCHECK TIME 


;SET RETURN PC FROM TIMER 


SEQ 0067 


D 6 
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CZTULA.P11 _ O7=JUN-78 17:07 START OF TESTS SEQ 0068 
3060 010476 004767 174332 JSR PC WRITE ;WRITE A RECORD 
3061 010502 005215 INC (R5) ;SET ‘GO* BIT 
3062 010504 004767 174136 JSR PC ,WAITRDY ;WAIT FOR READY 
3063 010510 102427 BVS 99% 
3064 010512 004767 174352 JSR PC ,REVRD sREAD REVERSE THE RECORD 
3065 010516 005215 INC (R5) ;SET ‘GO’ BIT 
010520 004767 174122 JSR PC ,WAITRDY ;WAIT FOR READY 
3067 010524 102421 BVS 99% :BRANCH ON ERROR 
3068 010526 004767 173622 JSR PC DELAY ;WAIT FOR TAPE MOTION TO STOP 
3069 010532 004767 174314 JSR PC ,READ ;READ RECORD 
3070 010536 004767 173226 JSR PC, TIMON ; TURN TIMER ON 
aol 010542 005215 INC (R5) ;SET °GO° BIT 
3075 010544 005710 1$: TST (RO) ;WAIT FOR FRAME COUNT > 0 
3074 010546 001002 BNE 2$ 
wae 010550 000163 004060 JMP TIMER (RS) ;GO TO TIMER & RETURN VIA R2 
3077 010554 004767 174066 2$: JSR PC ,WAITRDY ;WAIT FOR READY 
3078 010560 1024035 BVS 99S 
3079 010562 004767 1733530 JSR PC, TIMOK sCHECK TIME 
bone, 010566 000401 BR 100$ 
3082 010570 104400 99$: HLT 
Ha 010572 104000 100$: SCOPE 
3085 TEST O20- GAP SIZE (CINTERRECORD) 
3086 :THIS TEST MEASURES TIME FROM 'GO'=1 TO ‘FC REG" >0. 
3087 010574 112737 000020 001122 TST020: MOVB #20 ,a#TSTNUM 
3088 010602 012702 010664 MOV #13 ,R2 ;SET RETURN PC FROM TIMER 
3089 010606 004767 174222 JSR PC WRITE SWRITE A RECORD 
3090 010612 005215 INC (R5) SET °GO* BIT 
3091 010614 004767 174026 JSR PC ,WAITRDY s;WAIT FOR READY 
3092 010620 1024335 BVS 99% 
3095 010622 004767 174206 JSR PC WRITE sWRITE SECOND RECORD 
3094 010626 005215 INC (R5) ;SET *GO* BIT 
3095 010630 004767 174012 JSR PC ,WAITRDY :WAIT FOR READY 
3096 010634 102425 BVS 
3097 010636 004767 174226 JSR PC ,REVRD sREAD REVERSE SECOND RECORD 
3098 010642 005215 INC (R5) ;SET *GO* BIT 
010644 004767 173776 JSR PC ,WAITROY sWAIT FOR READY 
3100 010650 102417 BVS 99% 
3101 010652 004767 174212 JSR PC ,REVRO sREAD REVERSE FIRST RECORD 
3102 010656 004767 173106 JSR PC, TIMON TURN TIMER ON 
ds 010662 005215 INC (R5) SET *GO* BIT 
3105 010664 005710 | 1$: TST (RO) ;WAIT FOR FRAME COUNT > 0 
3106 010666 001002 BNE 2$ 
3108 010670 000163 004060 JMP TIMER(RS) :GO TO TIMER & RETURN VIA R2 
3109 010674 004767 173746 2$: JSR PC ,WAITROY + gWAIT FOR READY 
3110 010700 102403 BVS 99% 
3111 010702 004767 173210 JSR PC, TIMOK 
a5 010706 000401 BR 100$ 
3114 010710 104400 99$: HLT 
3115 010712 104000 100$: SCOPE 


CZTULAO TMO2 DRIVE FUNCTION TIMER 
CZTULA.P11 


010714 


010774 
010776 


011016 
011020 


011022 


112737 
012702 
004 


004 
005215 
004767 


001370 
012700 
012701 
004767 
005215 


004767 


005215 


005765 
007002 
000163 


001355 


07-JUN-78 17:07 


000021 
011060 
174020 
170154 


173670 


173420 
000022 


000021 
174062 


173632 


000020 
001054 
174014 
173602 
174000 
172712 
000006 
004060 
173550 


001122 


170122 


MACY11 30(1046) 
START OF TESTS 


E 6 
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sTEST 021- GAP CONSISTANCY 

:THIS TEST MEASURES TIME FROM ‘'GO'=1 TO ‘FC REG’ > O. 

: THE TEST REWINDS THE TAPE,WRITES 17 RECORDS WITH A DELAY FROM 1-16 MS 
:BETWEEN EACH WRITE COMMAND. AFTER THE 17. RECORDS ARE WRITTTEN THE 
;PROGRAM READ REVERSES 16 RECORDS. AT THIS POINT THE TAPE IS STOPPED BE- 
; TWEEN THE FIRST AND SECOND RECORD. A READ COMMAND IS EXECUTED 10 READ 

: THE 16 RECORDS WITH THE TIME BETEWEN GO=1 TO FC > 0 STORED IN ‘GAPTBL’ 
:FOR EACH RECORD READ. AFTER 16 RECORDS HAVE BEEN READ THE TIME IS VER- 
: IFIED FOR EACH READ. AFTER ALL RECORD TIMES ARE VERIFIED THEY ARE AVER- 


:AGED AND PLACED IN THE ‘ATIMTBL' (BY SCOPE). 


THE ABOVE PROCESS IS RE- 


;PEATED FOR EACH ITERATION. 


TSTO21: 


1$: 


23: 


3$: 


4$: 


5$: 


MOVB 
M 


a. — 
PC, .REWIND 
99$ 


;SET RETURN PC FROM TIMER 
REWIND SLAVE 
:BRANCH IF ERROR ON REWIND 


DELTIM SCLEAR VARIABLE DELAY TIME 

#17. ,R0 ;SET # OF RECORDS TO WRITE 

PC WRITE ;WRITE 17. RECORDS 

(R5) ;SET *GO’ BIT 

—" :WAIT FOR READY 

PC ,DELAYV sDELAY BEFORE WRITING ,NEXT REC. 
#18. ,DELTIM ;SET NEXT DELAY TIME 

re ;DECREMENT RECORDS WRITTEN COUNT 
#17.,R0 ;SET # OF RECS. TO REVERSE READ 
PC ,,REVRD REVERSE READ 17. RECORDS 

(R5) . ;SET °GO* BIT 

Sharer reer ;WAIT FOR READY 

ct ;DECREMENT RECORD COUNT 

#16.,R0 ;SET # OF RECORDS TO READ 
#GAPTBL,R1 ;SET PTR TO GAP TABLE FOR TEST 


PC ,READ ;READ A RECORD 
(R5) :SET "GO° BIT 


— sWAIT FOR READY 
PC,READ ;READ NEXT RECORD 
PC, TIMON ; TURN TIMER ON 


(R5) :SET ‘GO* BIT 


FCCRS) WAIT FOR FRAME COUNT > 0 
TIMER (R3) :GO TO TIMER & RETURN VIA R2 
PC -WAITRDY WAIT FOR READY 

‘o OECRENENT # OF RECORDS READ 


SEQ 0069 


CZTULAO TMO2 DRIVE FUNCTION TIMER 
CZTULA.P11 


oocoo ooo 
tt ted th od 
NmN lS 


— ce eh ee ee ce eld ed ed eed oe 
OOuwmuwnl - 


NS 


oooooooooococoocj“[o°o 


$$ 


011220 


011226 
011 


105037 
012700 
012701 


012104 
7 


012701 
00 


104400 
104000 


112737 


112737 


000060 
005215 


004767 
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001120 
000020 
001054 


173076 
001120 
000020 


000020 
001054 


000004 


172704 


000022 


0000235 
011306 
173506 


173716 


174700 
040000 


172462 


001120 


001122” 


001122 


| F 6 , 
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START OF TESTS 


CLRB @a#GAP :SET GAP # 0 
MOV #16.,R0 
MOV #GAPTBL,R1 
6$: MOV (R1)+,R4 :GET GAP TICK COUNT 
JSR PC ,GAPOK ; CHECK TIME 
INCB @a#GAP : INCREMENT GAP # 
CMPB #16. ,@#GAP ;BRANCH IF ALL GAPS NOT CHECKED 
BNE 6$ 
MOV #16.,R0 :SETUP TO AVERAGE GAP SIZES 
MOV #GAPTBL,R1 :SET PTR TO TABLE 
hye . ;CLEAR ‘SUM’ REGISTERS 
7$: ADD (R1)+,R2 :ADD ALL GAP SIZES TOGETHER 
ADC R3 
DEC RO 
BNE 7$ 
MOV #4,R0 ;NOW DIVIDE BY 16. 
8$: ASR R3 :BY SHIFTING 4 PLACES RIGHT 
ROR R2 
DEC RO 
BNE 8$ 
MOV R2,R4 sMOVE AVERAGED TIMES TO R4 
JSR PC, TIMOK : CHECK AVERAGED TIMES 
BR 00$ 
99$: HLT 
100$:  # SCOPE 


TEST O22-DUMMY TEST 
:THIS TEST MEASURES NOTHING 
TSTO22: MOVB #22 .@@TSTNUM 


sTEST O23-DATA TIME (2008P1) 
;THIS TEST MEASURES TIME a "FC REG’ CHANGES TO ‘RDY*=1. 


TSTO023: MOVB #23 .a#TSTNUM 
MOV #3$,R2 ;SET RETURN PC FROM TIMER 
JSR PC, REWIND sREWIND SLAVE 
BVS 99% ;BRANCH IF ERROR ON REWIND 
sWRITE 800 WORD RECORD 


. WORD BUF :SET WRITE BUFFER ADDRESS 
-WORD ~-800. ;WORD COUNT 
-WORD -1600. FRAME COUNT 
-WORD WFWD sWRITE COMMAND 
INC (R5) ;SET 'GO" BIT 
1$ CMP #-1600., (RO) ;WAIT FOR FRAME COUNT TO CHANGE 


BIT WERR,(R1) 
99$ 


;MONITOR ERROR BIT 
BR 1$ . 


2$: 


JSR PC, TIMON ;TURN TIMER ON 


SEQ 0070 


thy = DRIVE FUNCTION TIMER 


C2T 


ULA.P 


011344 
011346 


011350 


011412 
011414 


011442 
011446 


011472 


011474 
011476 


011512 


07-JUN-78 1 


105711 


104400 
104000 


112737 


0 
005215 
022710 

04 


112737 
012702 
004767 


17:07 


004060 
000003 


173312 
172554 


000024 
011436 
173364 


000700 
173566 


167240 
040000 


172332 


004060 
000093 


173162 
17242¢ 


000025 


011566 


173234 


001122 


000032 


MACY11 30(1046) 
START OF TESTS 


3$: 


4$: 
5$: 


99$: 
1008: 


HLT 
SCOPE 


G 
13-JUN-78 


(R1) 


4$ 
TIMER(RS) 


#3,R0 

R4 

RO 

5$ 

PC ,WAITRDY 
99$ 

PC, TIMOK 
100$ 


: TEST oe TIME (556BP1) 


TST024: 


1$: 


2$: 
3$: 


4$: 
5$: 


99$: 


100$: 


HLT 
SCOPE 


#24 ,a#TSTNUM 
#38 ,R2 
PC,.REWIND 
99 


#BP15564+NORM11,TC(RS) 
» haa 


#-4448. , (RO) 
2$ 

ERR, (R1) 
995 

1$ 

PC, TIMON 
(R1) 

4$ 
TIMER(RS) 
#3,R0 

R4 

RO 


5$ 

PC ,WAITRDY 
99% 

PC, TIMOK 
100$ 


TEST O25-DATA TIME (800BPI) 
001122 TST025: = 


JSR 


#025,a#TSTNUM 
#3$,R 
PC, .REWIND 


6 
13:54 PAGE 


— 


;WAIT FOR READY TO SET 


;GO TO TIMER & RETURN VIA R2 
;SET TO DIVIDE BY 8 
;BY SHIFTING RIGHT 3 PLACES 


; CHECK TIME 


;SET RETURN PC FROM TIMER 
s;REWIND SLAVE 

;BRANCH IF ERROR ON REWIND 
;LOAD TAPE CONTROL REGISTER 
WRITE 2224. WORD RECORD 


:SET ‘GO’ BIT 
:BRANCH WHEN WRITING BEGINS 
;MONITOR ERROR BIT 


;TURN TIMER ON 
;BRANCH WHEN READY SETS 


:GO0 TO TIMER & RETURN VIA R2 
;SET SHIFT COUNT 


; CHECK TIME 


;SET RETURN PC FROM TIMER 
sREWIND SLAVE 


SEQ 0071 


CZTULAO — DRIVE ee TIMER 


CZTULA.P 


P11 


011542 
011544 
011550 
011560 
011562 


011572 
011576 


011616 
011622 


011624 
011626 


011630 


011702 
011706 
011710 
011714 
011716 


011720 
011720 


07-JUN- 


102442 
0 


005215 
022710 
000771 
004767 


000163 
012700 


7 
000401 
104400 
104000 


112737 


000771 


004767 


17:07 


001300 000032 
173436 


163400 
040000 


172202 


004060 
000003 


173032 
172274 


000026 
001127 


011724 
173076 


002300 
173300 


163400 
040000 


172044 


001122 TST026: 


000032 


MACY11 30(1046) 
START OF TESTS 


4$: 
5$: 


99$: 


100$: 


HLT 
SCOPE 


H 
13-JUN-78 


99$ 
#BPI800+NORM11,TC(R5) 
R3,TMCMD 


#-6400., (RO) 
#WERR,(R1) 
99$ 

1$ 


PC,TIMON 
(R1) 

4$ 
TIMER(R3) 
#3,R0 

R4 

RO 


5$ 

PC ,WAITRDY 
998 

PC, TIMOK 
100$ 


TEST O26-DATA TIME (1600BP1) 
MOVB 


2$: 


#026 ,a#TSTNUM 

asWRZFLG 

TS1027 

#3$,R2 

PC, REWIND 

#PE1600+NORM11,TC(R5) 
ACAD 


#-6400., (RO) 
WERR,{R1) 
99$ 

1$ 


PC, TIMON 


6 
13:54 PAGE 


; SET 
;WAIT FOR WRITING TO START 
;MONITOR ERROR BIT 


72 


SEQ 0072 
;BRANCH IF ERROR ON REWIND 
T 800 BPI 


; SET 
“WRITE 3200. WORD RECORD 


"GO BIT 


; TURN TIMER ON 
;BRANCH WHEN READY SETS 


:GO TO TIMER & RETURN VIA R2 
;SET SHIFT COUNT 


; CHECK TIME 


;BRANCH IF DRIVE ‘NRZ ONLY 
;SET RETURN PC FROM TIMER 
sREWIND SLAVE 

:BRANCH IF ERROR ON REWIND 


:SET 1600 BPI 
;WRITE 3200. WORD RECORD 


;SET *GO* BIT 
;BRANCH WHEN WRITING STARTS 
;MONITOR ERROR BIT 


; TURN TIMER ON 


CZTULAO TMO2 DRIVE FUNCTION TIMER 
CZTULA.P11 


011724 


011752 


011754 
011756 


011760 


012012 


012014 
012016 


368 012020 


012024 


012 

012112 
012114 
012116 


07-JUN- 
. 105711 


100402 
000165 


006204 


000401 


104400 
104000 


112737 


67 
005215 
105711 
100402 


78 17:07 


004060 


172702 
172144 


000027 
012014 
005170 


171756 


004060 
172616 
172060 


000030 
012114 
172752 
172556 


005170 


171656 


001122 


MACY11 30(1046) 


START OF TESTS 


3$: 


4$: 


99$: 
100$: 


ss 

13-JUN-78 13:54 PAGE 73 
a he ;BRANCH WHEN READY SETS 
JMP TIMER (RS) ;GO TO TIMER & RETURN VIA R2 
ASR R4 ;DIVIDE TIME BY 4 
ASR R4 
JSR PC ,WAITRDY 
BVS 99% 
JSR PC, TIMOK ; CHECK TIME 
BR 100$ 
HLT 
SCOPE 


TEST 027-ERASE 
THIS TST MEASURES TIME ten *GO’=1 TO ‘RDY’=1. 


TSTO27: MOVB #27 ,a#TSTNU 
MOV #1$,R2 :SET RETURN PC FROM TIMER 
JSR R3,a#TMCMD 
-WORD 0 
-WORD 0 
WORD 
-WORD ERASE 
JSR PC, TIMON : TURN TIMER ON 
INC (R5) ;SET ‘GO’ BIT 
1$: _ :BRANCH WHEN READY SETS 
JMP TIMER(R3) :G0 TO TIMER & RETURN VIA R2 
23: JSR PC ,WAITRDY 
BVS 99$ 
JSR PC, TIMOK 
BR 100$ 
99$: HLT 
100$: SCOPE 


hte TAPE MARK 
001122 +$7030: 


Ae aaa TIME FROM ‘GO"=1 TO ‘RDY*=1. 


#30 ,a#TSTNUM 
mov #1$,R2 7SET RETURN PC FROM TIMER 
JSR PC,WRITE SWRITE A RECORD 
INC (R5) ;SET "GO* BIT 
JSR PC ,WAITROY 
BVS 99$ 
JSR R3,a¢TMCMD 
~-WORD 0 
. WORD 
. WORD FMK 
JSR PC, TIMON ; TURN TIMER ON 
INC (R5) ;SET ‘GO* BIT 
a (R1) ;BRANCH WHEN READY SETS 


SEQ 0073 


CZTULAO TMO2 DRIVE FUNCTION TIMER 
78 17:07 


CZTULA.P11 


012120 
012124 


012136 
012140 


012150 
012152 


012262 
012266 


012310 


012314 


012322 


07-JUN- 


000165 
004767 


000401 
104400 
004767 
102774 
104000 


012700 
0000 


000005 
000137 


012737 


112737 
012702 
004 


7 
015176 


004060 
172516 
171760 


172604 


000012 
001374 
000100 
001004 


001006 
000010 
006314 
001005 
001004 
000010 
006314 
001125 
013377 
005340 
005340 


012322 


000031 
012406 
172412 


001300 
000010 
005170 


166604 


001005 


001004 


001002 


001122 


000032 
000010 


J 6 
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START OF TESTS 
JMP TIMER(R3S) 
2$: JSR PC,WAITRDY | 
BVS 99$ 
JSR PC, TIMOK 
BR 100$ 
99$: HLT 
100$: 
JSR PC, .REWIND 
BVS 99$ 
SCOPE 
FINISH: MOV #10.,R0 
1$: TYPE ,CRLF 
DEC RO 
BNE 1$ 
BIT #SW06 ,ASUR 
BEQ 2$ 
MOVB @#DRVNUM, RO 
MOVB @4SLVNUA,R1 
MOVB @FSLVPTR,R2 
JMP @#TYPHOR 
2$: INCB @a47SLVNUM 
INC @#SLVPTR 
CMPB #8. ,@#SLVNUM 
BEQ 3$ 
JMP as#BEGIN 
3$: CLRB @4SLVNUM 
INCB @sSDRVNUR 
CMPB #8. ,@#DRVNUM 
BEQ END 
JMP @s#BEGIN 
END: TSTB @#UNTFND 
NE 1$ 
TYPE ,E .UNIT 
JAP #INIT 
1§: HALT 
RESET 
JAP af INIT 
:SKEW TAPE TIMING TESTS 
: THE FOLLOWING TESTS REQUIRE A SPECIALLY 
SKEWTST: MOV #TST031 ,@#SCPADR 
: TEST 031- SKEW TAPE SPEED TEST-FORWARD 
:THIS TEST READS 32°' OF TAPE (26400.-800. 
* DIVIDES TIME BY 32. TO GET TIME TO READ 
TST031: MOVB #31,a#TSTNUM 
MOV & “R2 
JSR PC, REWIND 
BVS 99$ 
BIS #BPI800+NORM11,TC(R5) 
BIS #BAI,CS2(R5) 
JSR R3, ase TMCMD 
. WORD RDBUF 


74 


SEQ 0074 


;GO0 TO TIMER & RETURN VIA R2 


;REWIND SLAVE 
;BRANCH IF ERROR ON REWIND 


;SET LINE FEED COUNT 


;SET NEXT SLAVE # 
;AND ITS POINTER 
;BRANCH IF LAST SLAVE (7) 


;BEGIN TEST ON NEXT SLAVE 
:SET SLAVE #0 


;AND INCREMENT DRIVE # 
:AND CHECK IF LAST DRIVE 


;BRANCH IF A UNIT WAS FOUND 


RESTART 


WRITTEN 800 BPI SKEW TAPE 
;SET SCOPE POINTER 


= 25600. FRAMES). THEN 
1° (800. FRAMES) OF TAPE. 


:SET RETURN PC FROM TIMER 
:REWIND SLAVE 

;BRANCH IF ERROR ON REWIND 
;SET 800 BPI 

; INHIBIT BUS ADDRESS INCREMENT 
:READ 32° OF TAPE-FORWARD 





CZTULAO TMO2 DRIVE FUNCTION TIMER 
CZTULA.P11 


012364 
012366 
012370 
012372 


012374 
012400 


012402 
012406 
012412 
012414 


012420 


012442 


012444 
012446 


012450 


012520 


012522 
012526 


01 
012570 
012572 


07-JUN-78 


177777 
063440 
000070 
005215 


022710 
101375 


004767 
023710 
103402 
000163 


012700 


104400 
104000 


112737 


023710 
101375 


005215 
022710 


17:07 


001440 
171362 
012366 
004060 
000005 


172152 
171454 


000032 
012604 
172264 


0013500 
000010 
005170 


012514 


172054 


005170 


001440 


001122 


000032 
000010 


000032 
000010 


MACY11 puree 
START OF TESTS 

10$: 
1$: CMP 
2s: CMP 
3$: MOV 


4$: ASR 


99$: HLT 
100$: SCOPE 


rn 
13-JUN-78 


-1. 


26400. 
RDEWD.: 


(R5) 
#800. 
1$ 


6 
13:54 PAGE 


, (RO) 


PC, TIMON 
a#i0$, (RO) 


3 
TIMER(RS) 


#5 ,R0 
R4 
RO 


4$ 
PC,RHINIT 
PC, TIMOK 
100$ 


sTEST O32-SKEW TAPE SPEED TEST-REVERSE 


Sa 
TSTO32: 


10$: 


1$: CMP 


11$: 


2$: CMP 


75 


sFRAME COUNT 
;SET ‘GO’ BIT 


;WAIT FOR FIRST 800 FRAMES 
;TO BE READ 


; TURN TIMER ON 
;WAIT FOR READING TO FINISH 


:G0 TO TIMER & RETURN VIA R2 
sDIVIDE TIME BY 32. 


; INIT DRIVE 
; CHECK TIME 


See oath READS oe 40°' (32000. FRAMES) OF TAPE, THEN READS REVERSE 


FRAMES) OF TAPE. THE TIME IS THEN DIVIDED BY 


#32 ,@#TSTNUM 

#3$,R2 

PC, .REWIND 

99% 

#BPI1800+NORM11, TC(R5) 
2(R5) 


a#10$, (RO) 
1$ 


PC ,RHINIT 


PC 


,DELAY 
ge hl ala 


#BAI,CS2(R5) 
R3,a#TMC 


ROBUF 


, #800., 


(RO) 


00.-800. 5600. 
:32. TO a TIME 10 READ 1°° (800. FRAMES) OF TAPE. 


;SET RETURN PC FROM TIMER 
;REWIND SLAVE 
;BRANCH IF ERROR ON REWIND 


READ FORWARD 32000. FRAMES 


sWORD COUNT 
:FRAME COUNT 
;READ FORWARD 
:SET ‘GO* BIT 


; INIT DRIVE 

sWAIT FOR TAPE MOTION TO STOP 
SET 800 BPI 

; INHIBIT BUS ADDRESS INCRENENT 
:READ REVERSE 32° OF TAPE 
READ BUFFER 

:WORD COUNT 

;FRAME COUNT 

;READ REVERSE 

;SET *GO" BIT 


:WAIT FOR FIRST 800 FRAMES 


SEQ 0075 


CZTULAO = DRIVE FUNCTION TIMER 
78 17:07 


CZTULA.P 


3508 
09 


012576 
012600 
012604 
012610 
012612 


012616 


012652 
012654 


012660 
012666 


0 
013112 


07-JUN- 


101375 
004767 


000163 
012700 


104400 
004767 
102774 
104000 


000137 


005015 


171164 
012564 


004060 
000005 


71754 
7 


1 
171256 


172102 
012152 
052524 


046125 
054524 


051105 
050131 


052123 


032464. 


030101 


042520 
052125 


020040 


020105 
0 


0 
052040 
051104 


050131 
01 


042105 


MACY11 30(1046) 


START OF TESTS 


38: 
4$: 


5$: 


99$: 
100$: 


BHI 


. SBTTL 


L 
13-JUN-78 


2$ 


PC, TIMON 
a#i1$, (RO) 


4$ 
TIMER(RS) 
#5 ,R0 

R4 

RO 

5$ 
PC,RHINIT 


PC, TIMOK 
100$ 


PC, .REWIND 
99$ 


a#F INISH 


PROGRAM MESSAGES 


;OPERATOR INSTRUCTIONS 
eASCIZ <CR><LF>*TU4S DRIVE FUNCTION TIMER (CZTULAO)’ 


M.NAM: 


1.REG: 


1.DRVS: 


1.SLVS: 


I.DRV: 


-ASCIZ 


»ASCIZ 


ASCII 


-ASCIZ 


6 
13:54 PAGE 


76 


;T0 BE READ 


; TURN TIMER ON 
;WAIT FOR ALL FRAMES TO BE READ 


;GO TO TIMER & RETURN VIA R2 
;DIVIDE TIME BY 32. 


;REWIND SLAVE 
;BRANCH IF ERROR ON REWIND 


<CRO<LF>* TYPE FIRST ADDRESS OF CONTROLLER * 


ZTYPE TMO2 DRIVE #°S TO BE TESTED 2% 


"FOR TMO2 DRIVE ° 


Z0- TYPE SLAVE #'S TO BE TESTED % 


SEQ 0076 


CZTULAO TMO2 DRIVE FUNCTION TIMER 
CZTULA.P11 07 


013114 


013222 


013226 
01 


013544 


050123 


07-JUN-78 17: 


042505 


030440 
047105 
052040 
000012 


051124 
020104 
000 


000012 


020104 


027461 
047440 


024040 


047516 
030057 


020104 
050101 


050101 
047524 


042040 
000040 
020105 
053101 


020124 
040514 


047506 
052125 


024501 
020124 


044526 
051122 


041527 


052011 


MACY11 30(1046) 
PROGRAM MESSAGES 


1.SKEW: .ASCIZ 


I .NRZ: 


M.EQOT: 


sERROR MESSAGES 
E.TRP4: 


E.NCON: 


E .NDRV: 
E.NSLV: 


E.DRV: 


E .NAVA: 


E.UNIT: 


E.SFT: 


E.HDR: 
E.HDR1: 


eASCIZ 


~ASCIZ 


~ASCIZ 


eASCIZ 


~ASCIZ 


ASCII 
ASCII 


-ASCIZ 


-ASCIZ 


»ASCIZ 


eASCIZ 
ASCII 


~ASCIZ 


Mm 6 
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SEQ 0077 


"SPEED TESTS ONLY? (YES/NO = 1/0)' 


"NRZ ONLY? (YES/NO = 1/0)' 
<CR><LF>"END OF TAPE'<CR><LF> 


<CR><LF>'TRAPPED TO 4° 


"NO CONTROLLER AT ADDRESS SPECIFIED’<CR><LF> 


"TMO2 DRIVE ° 


"DRIVE ° 
"0 SLAVE ° 


"0 NOT AVAILABLE FOR TEST*<CR><LF> 


"NO TMO2/TUSS UNIT FOUND TO TEST’<CR><LF> 


"SOFT ERROR (DATA) '<CR><LF> 


"TEST # ° 
* DEVICE ERROR'<CR><LF> 


‘ 
'CST'<HT>"WC'<HT>'BA'<HT>'FC'<HT>'CS2'<HT>"DS*<HT>"ER*<HT>" TC'<CR><LF> 


CZTULAO TMO2 DRIVE FUNCTION TIMER 
CZTULA.P11 


013550 


014170 


014175 
014202 


07-JUN-78 


047440 


024514 


122 
036075 


17:07 
052125 


000012 
050101 


025052 


046123 
020043 


005015 
047101 
000 


047440 


042515 
051105 
042105 


046511 


042122 
021440 


025052 


025052 


030115 


0 
020105 
053101 
040510 
051105 
005015 
6 


042507 


N 6 
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PROGRAM MESSAGES 
E.HDR2: .ASCIZ ‘ OUT OF RANGE ERROR’ <CR><LF> 


SEQ 0078 


4 


E.TIMOV: -ASCIZ <CRO<LF>*TIMER OVERFLOWED'<CR><LF> 


E. TIMEX: «ASCIZ <CRO<LF>'TIME EXPIRED WAITING FOR RDY’<CR><LF> 


E.GAP: .ASCIZ '‘ GAP # ' 


;TIME DOCUMENT LINES 


L.HDR1: .ASCIZ ‘teeeeeereeereeeeee teeta eee eee AEE THEEAAEEE EEA EEEA HERAT EEE A eee A eee eet 


L.HDR2: .ASCII ‘* TMO2 DRIVE FUNCTION TIMES~- DRIVE # * 


ASCII ‘O SLAVE # ° 


ASCII ‘O ' 
-ASCIZ ‘°9 CHAN. SER # ° 


L.DRV: 
L.SLV: 
L.CHAN: 


* "<CRO<LF>*#"<CRO<LF> 
"s FUNCTION’ <HT><HT>' TIME (SPECIFICATION) "<HT>* TIME (ACTUAL) *<CR><LF> 


L.HDR3: .ASCII 
eASCIZ 


L.RNG: .ASCIZ ‘RANGE=<' 


CZTULAO TMO2 D 
CZTULA.P11 


014205 
014212 


014215 
é 


014612 
014613 





052103 
000 


053440 
043040 
047502 
053440 
051440 
051440 
053517 


053440 


052117 


051040 
ceases 


053517 
051040 
042522 
051101 
051040 


522 
she, 


042040 
043040 


052524 


0 
026522 
043440 


RIVE FUNCTION TIMER 
07-JUN-78 17:07 


040525 


044522 
047522 
004524 


044522 
040524 
00 


004516 


044522 
052105 
053517 


040505 
046517 
004411 


040505 
051101 


042101 
042124 
000011 
042101 
046124 
004516 
040505 


020126 
004524 


040505 
020126 
047504 


042101 


050101 


MACY11 30(1046) 


L.ACT: 


~ASCIZ 


B 7 
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PROGRAM MESSAGES 


*ACTUAL=" 


;TEST DESCRIPTOR HEADERS 


A.T001: 


A.T002: 


A.T003: 


A.T004: 


A.T005: 


A.T006: 


A.1T007: 


A.1010: 


A.T011: 


A.T012: 


A.1T013: 


A.T014: 


A.T015: 


A.T016: 


eASCIZ 


~ASCIZ 


-ASCIZ 


ASCIZ 


~ASCIZ 


ASCIZ 


sASCIZ | 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


-ASCIZ 


-ASCIZ 


‘* 


a 


‘* 


eo 
ie 


= 
Fd 


. 
wh 


WRITE FROM BOT’ <HT> 


WRITE START’ <HT><HT> 


WRITE SHUTDOWN’ <HT> 
WRITE SETTLEDOWN’ <HT> 
READ FROM BOT’ <HT><HT> 


READ START’ <HT><HT> 
READ SHUTDOWN’ <HT><HT> 


READ SETTLEDOWN’<HT> 
READ REV stant er> 

READ REV SHUTDOWN’ <HT> 
READ REV SETTLEDOWN'<HT> 


TURN AROUND DELAY F=-R'<HT> 
TURN AROUND DELAY R-F*<HT> 


GAP SIZE-STOP HALF '<HT> 


SEQ 0079 


CZTULAO TMO2 DRIVE FUNCTION TIMER 
CZTULA.P11 


014620 


015174 


015176 


051440 


07-JUN-78 17:07 


055111 


041516 


042040 
044524 
03 


051101 
052040 


052040 
050123 
042522 


026505 
044040 
00 


004531 


052101 
042515 
050102 


052101 
042515 
050102 


052101 
042515 
050102 


052101 


020120 
000011 


050101 
042505 
004504 
050101 


042505 
004526 


MACY11 30(1046) 


Cc 7 
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PROGRAM MESSAGES 


A.T017: 


A.T020: 


A.T021: 


A.T023: 


A.T024: 


A.T025: 


A.1026: 


A.1T027: 


A.1T030: 


A.1031: 


A.T032: 


~ASCIZ 


~ASCIZ 


~ASCIZ 


eASCIZ 


~ASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


-ASCIZ 


"# GAP SIZE-START HALF ’<HT> 
"# GAP SIZE-INTERRECORD’<HT> 
"# GAP CONSISTANCY’<HT> 

"t DATA TIME-200BP1°<HT> 


"t DATA TIME-556BP1°<HT> 


= 
> 


DATA TIME-800BP1°<HT> 


a 
Br 


DATA TIME-1600BPI °<HT> 


- 
xe 


ERASE GAP TIME’ <HT> 


ot 
we 


WRITE FILE MARK*<HT> 


= 
a 


TAPE SPEED-FWD*<HT> 


a 


TAPE SPEED-REV*<HT> 


128. 
; THAT'S ALL FOLKS! 


SEQ 0080 


dD 7 
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CZTULA.P11 07-JUN-78 17:07 SYMBOL TABLE : SEQ 0081 
010154 CNVDEC 002362 E.HDR2 013550 L.SLV 014066 R11 =%000001 
ACCL = 100000 CNVOCT 002254 E.NAVA 013344 MCPE = 020000 R12 =%000002 
ANGTAB 001412 CNVTAO 002712 E.NCON 013245 DPE = 000400 R13 =2000003 
S = 16 CNVTD 002574 E.NDRV 013312 MAVEC = 000250 R14 =%000004 
ASFLG 001130 CNVTO 002266 E.NSLV 015526 MOL = 010000 R15  =%000005 
ATA = CR 00015 E.SFT 013441 MR = 000024 SC = 100000 
ATIME 001012 CRLF 001374 E.TIME 013625 MXF = 001000 SCOPE = 104000 
ATIMTB 001014 CSITM = 002000 E.TIMO 013576 M.EOT 013206 SCPADR 001002 
A.T 014215 CS1 = 000000 E.TRP4 0135226 M.NAM 012660 SDOWN = 20 
A.T002 014237 CS2 = 000010 E.UNIT 0133577 NAMPTR 001672 SKEWTS 012314 
A.T003 014257 DASH 001405 FC = 000006 NED = 010000 SLA = 
A.T 014301 D = 000022 = NEF = 004000 SLAVES 005720 
A.T005 014325 DCONST 002470 FINISH 012152 NEM = 004000 SLR == 177774 
A.T006 34 DELAY 004354 = 000020 NOP =0 SLVAVA 004560 
A.T007 DELAYV 004404 FPEVEC= 000244 NORM11= 000300 LVNUM 001005 
A.T010 014410 DELTIM 001114 FRACNT= 177400 WRZFLG 001127 SLVPTR 001006 
A.T011 014433 DIGTAB 001132 FWOSPC 005106 = SLVTBL 001164 
A.TO12 014455 DISPLA= 177570 GAP 001120 OCTALO 001116 = 
A.TO013 014502 DIVIDE 004442 GAPOK 0 ODIGIT 001144 SNPT 005210 
A.T014 014531 DLT = 100000 GAPTBL 001054 OPI = 02 SPACE 001410 
A.T015 014562 DPR = 000400 0 = OR = 000200 SPACE2 001407 
A.T016 014613 DRIVES 005470 GTIMTB 001572 osc = 00 SPCFWD= 0000 
A.TO17 014641 DRVAVA 004532 HLT = OUTBUF= 005340 SPCREV= 000032 
A.T020 014670 DRVNUM 001004 HSWR = 177570 OUTGAP 002 Ss = 
A.T021 014720 DRVTBL 001154 HT = OUTSPC 002504 ssc = 1 
A.T023- 014743 DRY = 000200 108 = 000010 PARVEC= 000114 STIMTB 001416 
A.T024 014767 DRYCLR= 000010 IE = 000100 PAT = 000020 STKPTR= 
A.T025 0150135 DS = 000012 ILF = 000001 PEFLRC= 000200 SWR 001000 
A.T026 015037 DT = 000026 ILR = PES = SW06 = 000100 
A.T027 015 CIE =0 1264 PE1600= 002000 sw07 = 000200 
A.T030 DVA = 004000 INCVAE= 000100 PFVEC = 000024 Swos = 000400 
A.T031 015131 DVO = 005340 = 002000 S¥v09 = 001000 
A.T032 0151535 DVI = 1 IOTVEC= 000020 PIP = S¥10 = 002000 
Alé6é = Dv2 = 000002 I = 000100 Q@ = 177772 SW11 = 004000 
Al? = 001000 DV3 = 000003 ITCNT 001121 PIRVEC= 00024 SW15 = 020000 
BA = 000004 DV4 = 000004 1.DRV 013054 PLKCSR= 172540 SW14 = 040000 
BAI == 000010 DVS = 000005 I.DRVS 012773 PLKVEC= SW15 = 100000 
BEGIN 006314 DV6 = 000 IT.WRZ 013155 PRGFLG 001124 TAP = 040000 
BELL 001403 DV7 = 000007 I .REG 12726 PSEL = 002 TBITVE= 000014 
KSLSH 001377 ECHO 001401 1.SKEW 015114 PSW == 177776 TC = 000032 
oT == 2 EMTVEC= 0 I.SLVS 013035 PUBLIS 003000 TIMER 004060 
P1200= END 012266 = 012 RDOBUF = 015176 TIMERR 004070 
1556= EOT = 002000 LKS = 17754 RDFWD = 0 TIMERO 004 
P1800= 001000 ER = 000014 LKVEC = 000100 RDREV = 000076 TIMER? 004034 
TVEC= ERASE = 000024 LPB = 177516 RDY = 000200 TIMOK 004 
DM11 = 000320 ERFLG 001123 LPS = 177514 READ 005052 TIMON 003770 
CHKDRV 005620 ERR = 040000 L.ACT 14205 RESVEC= 010 TKB == 177562 
CHKSLV 006124 ERRTRP 003302 L.CHAN 014071 REVRD 005070 TKISR 003240 
CH7 = 010000 ERRVEC= 000004 L.ORV 014054 RHINIT 004610 K = 177560 
CLR = 000040 E.DRV 013334 L.HDR1 0135674 RMR = 000004 TKVEC = 000060 
CNTRLC= 00000 E.GAP 013664 L.HDR2 014007 RWD = 000006 TMBASE 001010 
CNTRLO= 000017 E.HDR 013465 L.HDRS 014110 RWDOFF= 000002 TACMD 005170 
CNTRLU= 000025 E.HDR1 013475 L.RNG 014175 R10  =%000000 TMCS1 = 172440 


: 2 
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CZTULA.P11 07-JUN-78 17:07 SYMBOL TABLE SEQ 0082 
TAK = TSTO10 007502 TSTO27 011760 WC = 000002 $HT == 000011 
TPB = 177566 TSTO11 007622 TSTO3O0 012044 WCE = 040000 SNULL 001760 
TPS = 177564 TSTO12 007720 TSTO31 012322 WCHKF = 000050 STKFLG 001763 
TPVEC = TSTO13 010030 TSTO32 012450 WCHKR = 000056 $TPB 001766 
TRAPVE= 000034 TSTO14 010170 TYPDEC 002370 WEAK = 000026 STPFLG 001762 
TR = 04 TSTO1S 010262 TYPE = 00000 WFWD = 000060 STPS 

TRIVEC= 000014 TSTO016 010370 TYPFLG 001126 WRDCNT= 177600 = 015576 
TSTNUM 001122 TSTO17? 010464 TYPHDR 006540 WRIT 05034 -HLT 00 
TSTOO1 72 TSTO20 010574 TYPOCT 002262 WRL = 004000 -INPUT 003126 
TSTOO2 006756 TSTO21 010714 UBREAK= 177770 WRT.BK 005126 -RESTO 002232 
TSTOOS 007034 TSTO22 011220 U = WIBUF = 015176 -REWIN 

TSTOO4 007124 TSTO23 011226 UNTFND 001125 SCHARC 001770 -SAVE 002210 
TSTOOS 007232 TSTO24 011350 UPE = 020000 SCNTRL 001771 -SCOPE 003552 
TSTOO06 007316 TSTO25 011500 WAITRD 004646 SCRLF 001772 -TYPE 001776 
TSTOO? 007402 TSTO026 011630 | WAITTI 004650 SFILL 001761 


- ABS. 015576 000 


ERRORS DETECTED: 0 


Ne page AS CZTULA.P11 
RUN-TIME: 18 37 2 SECONDS 
RUN-TIME RATIO: 92/58=1.5 
CORE USED: 5k (10 PAGES) 





